Ich habe folgendes Problem:
In UserForm11, befindet sich eine Multiseite (Page1 bis Page3).
In jeder Page befinden sich Eingabefelder d.h. mehrere TextBoxen und ein CommandButton zum löschen aller Eingabefelder (TextBoxen) in der jeweiligen Page.
Meine Problemprozedur sieht wie folgt aus:
In Page1 befindet sich das LöschBotton
Private Sub CommandButton1_Click() ‘Lösche TextBoxen
Dim tb As Object
For Each tb In UserForm11.Controls
If TypeName(tb) = "TextBox" Then tb.Text = ""
Next tb
End Sub
In Page2 befindet sich das LöschBotton
Private Sub CommandButton2_Click() ‘Lösche TextBoxen
Dim tb As Object
For Each tb In UserForm11.Controls
If TypeName(tb) = "TextBox" Then tb.Text = ""
Next tb
End Sub
u.s.w.
Wenn ich nun das LöschBotton auf Page1 oder Page3 drücke löscht es mir alle Eingabefelder in der UserForm11. Ich möchte jedoch nur, dass es die Eingabefelder in Page1 oder in Page3 löscht.
Wie muss mein Code nun geschrieben werden, dass es funktioniert?
Gruss aus der Hochwasserstadt Thun (Schweiz)
Ernst