VBA: Multiseite-TextBoxen löschen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: VBA: Multiseite-TextBoxen löschen
von: Ernst Dunkel
Geschrieben am: 18.07.2002 - 09:16:32

Guten Tag Foren

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

nach oben   nach unten

Re: VBA: Multiseite-TextBoxen löschen
von: Hans W. Herber
Geschrieben am: 18.07.2002 - 11:44:33

Hallo Ernst,

die folgende Eigenschaft liefert den Page-Namen:
TextBox1.Parent.Name

hans

nach oben   nach unten

Re: Danke
von: Ernst Dunkel
Geschrieben am: 18.07.2002 - 13:20:23

Hallo Hans

Danke für den Hinweis

Gruss Ernst


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Begrenzte Werte-Anzahl bei Diagrammen?"