Worksheet_Change Problem, wenn Target gelöscht wir
Gianni
Habe folgendes Problem, bei dem ich nicht weiterkomme. Der untenstehende Code füllt bei Eingabe einer positiven Zahl das Datum in die rechte Nachbarzelle und löscht diese, wenn in eine Targetzelle eine Null eingegeben wird. Nun könnte der Anwender eine Fehleingabe machen und diese anstatt durch Eingabe einer Null durch Löschen der Eingabe (ENTF/DELETE) korrigieren. Diesen Fall kann ich jedoch nicht abfangen und erhalte die Fehlermeldung "Laufzeitfehler 13: Typen unverträglich". Wer weiss Rat?
Private Sub Worksheet_Change(ByVal target As Range)
If target.Column 8 Then Exit Sub
If target.Row 30 Then Exit Sub
If target.Value > 0 Then
Cells(target.Row, 10).Value = Date
ElseIf target.Value = 0 Then
Cells(target.Row, 10).Value = ""
End If
End Sub