Office: (Office 365) Xund Datum in auch in andere Zellen

Hallo Zusammen,

Im Bereich B7:B18 wird bei Doppelklick das Heutige Datum eingefügt.
Nun möchte ich auch das in dem Bereich F7:F18 bei einem Doppelklick das Datum eingetragen wird.
Wie setze ich nun F7:F18 in den Code unten ein ?
Bei mir klappt es nicht.
Danke Merkur


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B7:B18")) Is Nothing Then 'ANPASSEN
Target = Date
Cancel = True
End If
End Sub

 

Schon fündig geworden
Der Post war wohl unnötig. Sorry

Range("K17,K20,L30:L32")

 

Moin und nur ergänzend:
Das aktuelle Datum kann man auch mit dem Shortcut Strg + . (Punkt) eintragen.