Hallo,

ich habe nun seit einiger Zeit versucht einen Zeitstempel in eine Zelle einzutragen, jedoch ohne Erfolg.

Die Zellen B9 bis B12 sind verbunden. Dort soll Text eingetragen werden können. In die Zellen E9 bis E12 - ebenfalls als Einheit verbunden - soll dann der Zeitstempel eingetragen werden.

- keine Änderung in B9 => keine Anpassung des Zeitstempels in E9
- neuer Text in B9 => Zeitstempel in E9 wird aktualisiert auf jetzt
- ist B9 leer => E9 ist auch leer

Bisher habe ich folgenden Code, der mir aber kein Ergebnis liefert.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Range("B9:B12"), Target) Is Nothing Then

Exit Sub

If Target.Value > "" Then
Range("E9:E12").Value = Now
Else
Range("E9:E12").Clear
End If
End If


Danke für eure Hilfe
Gruss und schönen Rosenmontag

End Sub