Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1208to1212
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1208to1212
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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é

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
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é
Anzeige
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

Links zu Excel-Dialogen

ToggleButton TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige