Hilfe bei Excel-Einsatztagebuch

[maddin11477]

Hi,
ich hab sowas auch mal vor längerer Zeit gemacht ich hänge dir mal die Exceltabelle mit an.
Der Code lautet:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' wird im definierten Bereich ein Wert geändert, wird in der nächsten Spalte das Datum eingetragen
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("B3:B1000")
' ActiveSheet.Unprotect
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, -1) = Time
Next RaZelle
' ActiveSheet.protect
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

Ich denke anpassen auf die Zellen sollte damit auch klappen oder?
Gruß
Martin