Hallo,
ich möchte einzelne Zellinhalte prüfen. In Zelle I5 dürfen nur Zahlen eingetragen werden und in Zelle S5 nur Buchstaben. Ist dies nicht der Fall, wird in der darüberliegenden Zelle eine Fehlermeldung ("Überprüfen") angezeigt sowie eine 1 in Zelle V4 bzw. V5 geschrieben.
Hat nun der Benutzer eine nicht zulässige Eingabe getätigt erscheinen die Meldungen. Löscht er die Eingabe heraus, bleibt leider die Meldung, wie auch die 1 stehen und müsste händisch gelöscht werden.
Frage: 1. Kann ich den Code vereinfachen oder muss ich immer wieder eine neue If-Anweisung pro überwachter Zelle schreiben (siehe Code). 2. Kann mittels VBA auch die Fehlermeldung nach Löschung des Fehlers wieder verschwinden?
Hier der Code:
' Prüfung der einzelnen Felder
' Personalnummer prüfen
If Not IsNumeric([I5]) Or Cells(5, 9) = "" Then
Range("H4") = "Überprüfen!"
Range("V4") = "1"
End If
' Name prüfen +++++++++++++++++++++++++++++++++++++++++++++
If IsNumeric([S5]) Then
Range("S4") = "Überprüfen!"
Range("V5") = "1"
End If
Gruß Peter