Hallo! Dann probiere es mal so:
Private Sub Worksheet_Change(ByVal Target As Range)
'die Range auf deinen Bereich anpassen
If Application.WorksheetFunction.CountBlank(ActiveSheet.Range("E15:E36")) <> ActiveSheet.Range("E15:E36").Count And ActiveSheet.Range("E13") = "" Then ActiveSheet.Range("E13") = Date
End Sub
Ich vermute, dass die eine Range nicht richtig vom System ermittelt wurde. Alternativ mal die Variante (da zählt das SAystem die gefüllten Zellen im Bereich)
Private Sub Worksheet_Change(ByVal Target As Range)
'die Range auf deinen Bereich anpassen
If Application.WorksheetFunction.CountA(ActiveSheet.Range("E15:E36")) > 0 And ActiveSheet.Range("E13") = "" Then ActiveSheet.Range("E13") = Date
End Sub
Habe auch mal soweit die Datei nachgestellt. Bei mir passt es. VG
|