HAllo! Also hier mal so angepasst, dass geprüft wird, ob mind. ein Wert in dem Wunschbereich gefüllt ist. Bei den Bereich muss du ihn halt noch anpassen. Ansonsten schreib mal bitte, was nicht passt oder wo der Fehler kommt und poste dazu deinen Code, dass man mal schauen kann. VG
Private Sub Worksheet_Change(ByVal Target As Range)
'die Range auf deinen Bereich anpassen
If Application.WorksheetFunction.CountBlank(ActiveSheet.Range("A1:B2")) <> Range("A1:B2").Count And ActiveSheet.Range("C1") = "" Then ActiveSheet.Range("C1") = Date
End Sub
|