If [FALSCH] -> End Sub

[o0Julia0o]

hi,

ich möchte, wenn das If-Ergebnis falsch ist, dass dann zu End Sub gesrpungen wird. So klappt es nicht:

Code:

Sub Raus()
If A1 = 1 Then
MsgBox "BL ist 1"
End Sub
End If
MsgBox "BL ist anders als 1"
End Sub

Julia :)

[Rabe]

so?

Sub Raus()
  If Range("A1") = 1 Then
     MsgBox "BL ist 1"
  Else
     MsgBox "BL ist anders als 1"
  End If
End Sub

[Glausius]

... oder so:

Code:

Sub Raus()
If A1 = 1 Then
       MsgBox "BL ist 1"
       Exit Sub
End If
MsgBox "BL ist anders als 1"
End Sub

[WillWissen]

Hi Günter,

dein Makro wirft einen Kompilierungsfehler aus:

[
Bild bitte so als Datei hochladen: Klick mich!
]

So geht es:

Sub Raus()
If Range("A1") = 1 Then
       MsgBox "BL ist 1"
       Exit Sub
End If
MsgBox "BL ist anders als 1"
End Sub

[o0Julia0o]

gut o.k., der Fehler kam durch meine Vorlage. Aber von der gefragten Technik her funktioinert das ja. Beide Lösungen. Danke euch!

Auch noch möglich:
Sub Raus()
  If Range("A1") = 1 Then
     MsgBox "BL ist 1"
   Goto Ende
   End If
     MsgBox "BL ist anders als 1"
Ende:
End Sub




Julia :)