TextBoxen Abfrage
28.01.2009 14:17:08
Andre
ich versuche gerade eine Eingabekontrolle von 3 Textboxen zu schaffen, die einen Hinweis ausgeben soll, sofern die TextBoxen eintweder 0 oder leer sind. Hierfür folgenden code:
Private Sub CommandButton1_Click()
With Worksheets("Tabelle1")
If .TextBox1.Value = .TextBox3.Value = .TextBox5.Value = "0" Or .TextBox1.Value = .TextBox3. _
Value = .TextBox5.Value = " " Then
Hinweis6.Show
Else
Worksheets("Tabelle2").Select
End If
End With
End Sub
Leider springt die Seite immer schon um, auch wenn die Textboxen noch auf 0 stehen oder leer sind.
Weiss jemand vielleicht weiter?
Ich würde mich sehr über eine Antwort freuen.
Viele Grüße,
Andre
Anzeige