If ... Else funktioniert ohne Else?
Reinhard
in einer Fremdmappe sah ich diesen Code im Modul einer Userform.
btnAbbrechen ist ein Commandboutton auf der UF.
Private Sub btnAbbrechen_Click()
Dim a
a = MsgBox("Wollen Sie die Erfassungsmaske ohne Speicherung beenden?", vbYesNo)
If a = vbNo Then Exit Sub Else
Unload Me
End Sub
Wieso funktienert der Code? Wieso meldet sich der Debugger nicht und reklamiert "End If" an?Bei
Private Sub btnAbbrechen_Click()
Dim a
a = MsgBox("Wollen Sie die Erfassungsmaske ohne Speicherung beenden?", vbYesNo)
If a = vbNo Then
Exit Sub
Else
Unload Me
End If
End Sub
oder
Private Sub btnAbbrechen_Click()
Dim a
a = MsgBox("Wollen Sie die Erfassungsmaske ohne Speicherung beenden?", vbYesNo)
If a = vbNo Then Exit Sub
Unload Me
End Sub
hätte ich hier nicht nachgefragt. Mit Haltepunkt und F8 sehe ich daß "Else" gar nicht "angesprungen wird wenn a VBNo ist es wird gleich zu "Unload Me" "gehüpft".Gruß
Reinhard