Gruß
Betro
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Worksheets("meineBlatt").Range("A5").Value = Date
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range
If Target.Row <> 2 Or Target.Count > 1 Then Exit Sub 'für Spalte B
Set RaBereich = Range("B2:B500") 'Wirkungsbereich
Application.EnableEvents = False
If Not Intersect(Target, RaBereich) Is Nothing Then
Target.Offset(0, -1) = Date 'Datum in Spalte B minus 1
End If
Gruß
Harald
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub