If Then Else
11.12.2006 12:07:09
Christian
ich brauch dringend Eure Hilfe.
Ich habe die folgende Fehlerschleife kontruiert, aber sie funktioniert nicht !Kann mir bitte jemand sagen was ich falsch gemacht habe ?
Private Sub Prüfen()
On Error GoTo Fehler
If OptionButton1.Value = False And OptionButton2.Value = False Then Err.Raise 65536
Fehler:
If Err.Number = 65536 Then MsgBox ("Bitte auswählen !")
Exit Sub
Resume Next
End Sub