Mit folgendem Code überprüfe ich die Angabe in der Zelle A1:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zeile, Spalte
If Range("Test").Value "" Then
If Target.Address = Range("Test").Address Then
Zeile = Target.Row
Spalte = Target.Column
Range(Target.Address).Select
If Len(Selection.Value) 8 Or Mid$(Selection.Value, 2, 1) = "." Or Mid$(Selection.Value, 3, _
_
_
1) = "." Then
MsgBox "Eingabe bitte in der Form: TTMMJJJJ."
Else
Range("Test").Select
End If
End If
End If
End Sub
Wenn der User nun das Format nicht eingibt und nach dem OK-Klick keine Lust mehr hat, das Format richtig zu stellen, kann er eine andere Zeile aktivieren oder Enter drücken und Excel überprüft nicht nochmal ob die Eingabe richtig ist, da der User nichts verändert hat. Wie kann ich dem entgegenwirken? Ich möchte, dass der User erst weiterkommt, wenn das Format stimmt.
Ich freue mich auf Unterstützung. Vielen Dank schon jetzt.