Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
136to140
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
136to140
136to140
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA: Multiseite-TextBoxen löschen

VBA: Multiseite-TextBoxen löschen
18.07.2002 09:16:32
Ernst Dunkel
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: VBA: Multiseite-TextBoxen löschen
18.07.2002 11:44:33
Hans W. Herber
Hallo Ernst,

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

hans

Re: Danke
18.07.2002 13:20:23
Ernst Dunkel
Hallo Hans

Danke für den Hinweis

Gruss Ernst

Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige