Office: (Office 365) Datum nach Eingabe automatisch in Zelle einfügen

Hallo,
ich möchte Zellen so formatieren, dass wenn ich in die Zellen etwas eingebe, das aktuelle Datum in der Zelle nebendran eingefügt wird.
Leider bekomme ich immer eine Fehlermeldung
Bei diesem Code:

Sub Worksheet_Change(ByVal Target As Range)
'Quelle: Ransi
If Intersect(Target, Range("H2:H100;K2:100")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Target.Offset(0, 1).ClearContents
Else
Target.Offset(0, 1) = CDate(Format(Now, "dd.mm.yyyy hh:mm"))
End If
End Sub


Danke

 

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

If Intersect(Target, Range("H:H")) Is Nothing Then
If Intersect(Target, Range("K:K")) Is Nothing Then Exit Sub
SetDelDate Target, 1
Else
SetDelDate Target, -1
End If

End Sub

 

Hi,

in dieser Zeile

If Intersect(Target, Range("H2:H100;K2:K100")) Is Nothing Then Exit Sub

fehlt ganz einfach der rot markierte Teil.

---

 

Hallo,

außerdem muss es in (englischer) Schreibweise heißen (statt Strichpunkt vor dem K muss ein Komma enthalten sein):
If Intersect(Target, Range("H2:H100,K2:K100")) Is Nothing Then Exit Sub