Folgendes Problem: Ich arbeite mit untenstehendedm VBA. Funktioniert alles bestens. Nur.....
Wenn ich einen Wert in eine Zelle schreibe und dann Während der Eingabe ohne Enter zu drücken direkt ein anderes Tabellenblatt anwähle, bekomme ich eine Fehlermeldung.
Diese kann ich mit "On Error go to XX" zwar umgehen, aber danach funktionieren alle Makros bei Worksheet Activate, Change usw. nicht mehr.
Gibts da irgend eine Lösung damit das Makro auch nach dieser Fehleingebe weiterläuft?
mit freundlichen Grüssen
Domtsgi
Private Sub Worksheet_Change(ByVal Target As Range)
Dim raZelle As Range
Set raZelle = Worksheets("Vorgaben").Range("T2:T144").Find(Target, lookat:=xlWhole)
If raZelle Is Nothing Then
Application.EnableEvents = False
Target = 0
Target.Select
MsgBox "Nummer nicht gefunden oder gesperrt"
Application.EnableEvents = True
End If
End Sub