UserForm und TextBox
19.07.2006 08:11:15
Frederic
muss mich zum ersten Mal mit UF und Co. auseinandersetzen.
Ich habe jetzt schon ein UF erstellt, dass ich mit MultiPage ausgestattet habe.
Ziel:
3 Tabs (1. Stammdaten - 4 Zeilen; 2. Buchungsdaten - mit Berechnungen; 3. Zusammenfassung)
Die Werte sollen in ein TabellenSheet eingetragen werden und in der Zusammenfassung im UF (Zusammenfassung) angezeigt werden.
Allerdings blick ich noch nicht so richtig durch.
Im 1. Tab Stammdaten sollen Fehlerprüfungen ablaufen, sprich, wenn ein Feld leergelassen wurde, soll der Wechsel auf den nächsten Tab nicht möglich sein u. MsgBox sollen ausgegeben werden. Hier mal der Code von Tab1, wo liegt mein Fehler?
Private Sub CommandButton2_Click()
If TextBox1.Value = "" Then
MsgBox ("Bite füllen Sie das Feld 'Firma' aus")
If TextBox2.Value = "" Then
MsgBox ("Bite füllen Sie das Feld 'Buchungs-Datum' aus")
Else
MultiPage1.Value = 1
End If
End Sub
Vielen Dank für Eure Hilfe.
Frederic