✔ if-schleife mit "und"

[DarkSean]

Public Sub Command1_Click()
        If IsNumeric(Text1(0).Text And Text1(1).Text And Text1(2).Text And Text2.Text) Then
            z1 = CDbl(Text1(0).Text)
            z2 = CDbl(Text2.Text)
            n1 = CDbl(Text1(1).Text)
            n2 = CDbl(Text1(2).Text)
        Else
            MsgBox ("Mindestens ein Textfenster ist leer oder enthält ungültige Zeichen")
        End If
        If (n1 = 0 Or n2 = 0) Then
            MsgBox ("Der Nenner eines Bruches kann nicht 0 betragen")
            GoTo error:
        Else
            GoTo weiter:
        End If
weiter: Text3.Text = z1 * n2 + z2 * n1
        Text4.Text = n1 * n2
    Exit Sub
error: Text3.Text = ""
       Text4.Text = ""

Wenn ich jetzt für z1 z2 n1 oder n2 etwas nicht-numerisches einsetze sollte eigentlich eine MsgBox erscheinen. Doch es wird nur ein Fehler "Type mismatch" angezeigt. Wie kann ich das ändern?
Vielen Dank im Vorraus,
Sean

 

[Yoah]

Moin,

if ist keine Schleife, es ist eine Auswahl mit Bedingung

eat this:

If IsNumeric(Text1(0).Text) And IsNumeric(Text1(1).Text) And IsNumeric(Text1(2).Text) And IsNumeric(Text2.Text) Then
'.....

 

[DarkSean]

Danke, es !

 

[Yoah]

Bitta schöanna!

Dann markier das mal als erledigt!