Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1260to1264
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
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

inhalte in Frame

inhalte in Frame
fritz
Schönen Sonntag zusammen,
ich habe in einer userform einen frame (Frame1). in diesem Frame sind mehrere OptionButton´s und Comboboxen. gibts eine möglichkeit diese bei klick auf eine schalffläche alle auf einmal wieder zurückzustellen (also value=false)
oder muss ich für jede einezlne einen befehl eingeben. Ich möchte aber nicht die userform neu laden
danke und lg

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

Betreff
Benutzer
Anzeige
AW: inhalte in Frame
06.05.2012 09:26:33
Hajo_Zi
Hallo Fritz,
das geht nur jeder einzeln.

Mit Schleife
06.05.2012 11:08:14
ransi
HAllo Fritz
Hajo schrieb:
"das geht nur jeder einzeln."
Da hat er recht, aber du kannst das in einer Schleife erledigen.
Schau es dir mal an:
' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Dim objOptionButtons() As msforms.OptionButton
Dim objCombobox() As msforms.ComboBox



Private Sub UserForm_Activate()
    Dim i As Integer, J As Integer
    Dim myControl As msforms.Control
    Redim objOptionButtons(0)
    Redim objCombobox(0)
    
    For Each myControl In Me.Frame1.Controls
        Select Case TypeName(myControl)
            Case "OptionButton" 'Alle OptionButtons auf Frame1 erfassen
                Redim Preserve objOptionButtons(i)
                Set objOptionButtons(i) = myControl
                i = i + 1
            Case "ComboBox"
                Redim Preserve objCombobox(J) 'Alle ComboBoxen auf Frame1 erfassen
                Set objCombobox(J) = myControl
                J = J + 1
        End Select
    Next
End Sub



Private Sub CommandButton1_Click()
    Dim myOptionButton
    Dim myComboBox
    
    For Each myOptionButton In objOptionButtons
        myOptionButton.Value = False
    Next
    
    For Each myComboBox In objCombobox
        myComboBox.Value = ""
    Next
End Sub


Im Userform_Activate werden die Steuerelemente in Datenfelder einsortiert.
Auf die kannst später dann Problemlos zugreifen.
ransi
Anzeige

Links zu Excel-Dialogen

Frame OptionButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige