Eintrag in Zelle prüfen mit Fehlermeldung
28.12.2017 12:05:40
Micha
ich habe folgenden Code um die Zelle C2 auf Änderung zu überwachen.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C2")) Is Nothing Then
Call Kalenderdownload
End If
End Sub
Jetzt möchte ich aber zusätzlich kontrollieren, ob der eingegebene Wert in Zelle C2 zwischen 2010 und 2099 liegt (nur diese Werte sind erlaubt, kein Text usw.). Wenn nicht Wert wieder löschen und MsgBox mit Meldung des möglichen Eingabebereiches bringen.
Hoffe auf eure Hilfe.
Vielen Dank.
Micha
Anzeige