Office: Mit doppelklick Datum in Excelspalten einfügen

Hallo Liebe Excelfreunde,

ich bin vergeblich am rumprobieren, wie ich folgendes Problem lösen kann:

Ich möchte dass wenn ich in eine Zelle in Spalte D und E klicke (mit doppelklick) das aktuelle Datum in die Zelle eingefügt wird.


dann in Spalte F das Datum von morgen. (in die Zelle wo ich doppelklicke)

und in Spalte G das Datum von übermorgen. (in die Zelle wo ich doppelklicke)


Ich habe auch schon was gefunden, dass geht allerdings nur für Spalte E und ich weiß nicht wie ich die anderen Spalten einpflegen kann.


Option Explicit

' Datum per Doppelklick
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Bereich As Range ' Reaktionbereich

' Bei Mehrfachauswahl von Zellen Programm beenden
If Target.Cells.Count > 1 Then Exit Sub

' Arbeitsbereich referenzieren
Set Bereich = Range("E:E")

' Nur im Bereich A1:A20 reagieren
If Intersect(Target, Bereich) Is Nothing Then Exit Sub

' Datum in aktuelle Zelle schreiben
Range(Target.Address).Value = Date



könnt ihr mir da evtl. weiterhelfen? Bin so langsam am verzweifeln.

Herzlichen Dank,

Martin

:)

 

Hi Martin,

...das soll sicher heißen: in Spalte D ODER E... *Smilie

Code: