dank Eurer Hilfe weiss ich nun, wie ich meine Spalte prüfen kann:
For Each c In .Range("BD10:BD100")
If Not IsDate(c) And Not IsEmpty(c) Then
UserForm1.TextBox1 = "Cell " & c.Address & " is not a date !"
Exit Sub
End If
Next
Wenn es die Möglichkeit gibt, würde ich gerne per Makro an diese ausgelesene Zelle c.Address , da wo der Fehler aufgetreten ist, auch mit dem Curser hinspringen.
Geht das ?
Danke
Joachim