leider funktioniert bei mir das ON ERROR GOTO nicht. Wenn ich dann auf eine Sprungmarke in der Prozedur verweise wird trotz Fehler nicht die Fehlerbehandlung aufgerufen... Hier der Code
Private Sub CBOk_Click()
On Error GoTo Fehler
MsgBox UF_Kalender.ActiveControl.Caption, vbOKOnly
Fehler:
MsgBox "Wählen Sie einen Tag aus !", vbOKOnly
UF_Kalender.Controls("Commandbutton1").SetFocus
End Sub
'Befindet sich in einer Userform
Hat jemand von euch eine Erklärung ?
Gruß Gabor