Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Multipageseiten leeren

Multipageseiten leeren
René
Hallo liebe Excelgemeinde,
habe wieder mal ein Problem. Ich habe in einer USerForm eine Multipage mit 4 Seiten und darin sind Combo und Textboxen. Nun möchte ich erreichen, dass bspw. alle Combo und Textboxen der Seiten 1, 3 und 4 geleert werden wenn in Seite 2 Werte ausgewählt werden. Könnt ihr mi einen Tip geben wie man so etwas hinbekommt?
Vielen Dank
MfG René
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Multipageseiten leeren ...
07.04.2011 17:27:31
Matthias
Hallo
nach diesem Motto:
Private Sub MultiPage1_Change()
If MultiPage1.Value = 1 Then  '( 1=Page2 )
TextBox1 = ""
TextBox3 = ""
ComboBox1 = ""
ComboBox3 = ""
'also hier die entsprechenden Objekte leeren
End If
End Sub
Klickst Du also auf Page2 werden die Objekt in Page1 und Page3
hier je eine Combo- und Textbox geleert.
Beispiel:
https://www.herber.de/bbs/user/74307.xls
Gruß Matthias
Anzeige
AW: Multipageseiten leeren ...
07.04.2011 17:52:00
René
Hallo Matthias,
habe inzwischen auch was gebastelt, aber Deine Lösung ist viel eleganter und der Code auch wesentlich kürzer. Ich danke Dir.
Schönen Abend
MfG René
AW: Multipageseiten leeren ...
07.04.2011 19:27:21
Nepumuk
Hallo,
für so etwas habe ich eine Standardroutine:
Private Sub MultiPage1_Change()
    With MultiPage1
        If .Value = 1 Then Call Clear_Controls(.Pages(1))
    End With
End Sub

Private Sub Clear_Controls(objContainer As Object)
    Dim objControl As Control
    For Each objControl In objContainer.Controls
        Select Case TypeName(objControl)
            Case "TextBox"
                objControl.Text = ""
            Case "Label"
                objControl.Caption = ""
            Case "ComboBox", "ListBox"
                objControl.ListIndex = -1
            Case "CheckBox", "OptionButton", "ToggleButton"
                objControl.Value = False
            Case "ScrollBar", "SpinButton"
                objControl.Value = objControl.Min
            Case "Image"
                Set objControl.Picture = Nothing
        End Select
    Next
End Sub

Gruß
Nepumuk
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige