VBA - End Sub in Case oder End if

[Korain]

Ich benötige Hilfe bei VBA.

Ich möchte eine Abfrage machen wie zb.:

Code:

        'Eingaben überprüfen
        Select Case IsNumeric(TextBox14.Value)
            Case True
                MsgBox ("1")
            Case False
                MsgBox ("Die Eingabe der Bonusvereinbarung muss eine Zahl sein!")
                End Sub
        End Select

Wenn ich in Case False komme soll der Sub beendet werden - jedoch kann ich das End Sub nicht vor dem End Select schreiben.

Sofern Case False auftritt soll nachfolgender Code nach dem Select Case nicht ausgeführt werden.

[Klaus-Dieter]

Hallo,

Select Case für zwei Optionen ist schon ein wenig wie mit Kanonen auf Spatzen geschossen. Hier würde eine Wenn-Abfrage völlig reichen.

PS: Gerade erst gesehen, dass du eine TextBox auf numerische Inhalte prüfen willst, da stehen grundsätzlich nur Texte drin. Zeige doch mal deine Datei.

[maninweb]

Hallo,

statt End Sub an der Stelle kannst Du Exit Sub verwenden. Plus generell die Anmerkung von Klaus-Dieter.

Gruß

[Korain]

Hallo,

Select Case für zwei Optionen ist schon ein wenig wie mit Kanonen auf Spatzen geschossen. Hier würde eine Wenn-Abfrage völlig reichen.

PS: Gerade erst gesehen, dass du eine TextBox auf numerische Inhalte prüfen willst, da stehen grundsätzlich nur Texte drin. Zeige doch mal deine Datei.

Hallo Klaus-Dieter, 

danke für deine schnelle Antwort.

Also die Abfrage an sich klappt. Wenn ich es als IF-Abfrage schreibe:

Code:

        If IsNumeric(TextBox14.Value) = True Then
            MsgBox ("Eingabe ist korrekt")
        Else
            MsgBox ("Bitte Eingabe überprüfen!")
                End Sub
        End If

Also die Abfrage passt. Ich möchte nur wenn der Wert in TextBox14 keine Zahl ist (sprich IsNumeric(Textbox14.Value) = False) dann soll nur die MsgBox angezeigt werden und NICHTS weiter in dem Sub ausgeführt werden.

LG

---

Hallo,

statt End Sub an der Stelle kannst Du Exit Sub verwenden. Plus generell die Anmerkung von Klaus-Dieter.

Gruß

Werde ich direkt mal testen

---

Hallo,

statt End Sub an der Stelle kannst Du Exit Sub verwenden. Plus generell die Anmerkung von Klaus-Dieter.

Gruß

Oh Wow - das war bereits des Rätsels Lösung!!

Danke dir und Klaus-Dieter! :)

[Klaus-Dieter]

gelöscht, hatte sich erledigt.