Microsoft Excel

Herbers Excel/VBA-Archiv

Comboboxen füllen


Betrifft: Comboboxen füllen
von: StefanL
Geschrieben am: 03.12.2018 17:25:02

Hallo Experten,

ich würde gerne mehrere Comboboxen mit den gleichen Daten füllen aber..., diese Comboboxen haben keine fortlaufende Bezeichnung wie z.B. cbx1, cbx2 usw. Meine Comboboxen heißen z.B. frmReifen.cobErsteLinksAussen_Reifentyp oder frmReifen.cobZweiteRechtsInnen_Reifentyp. Es gibt auch noch andere Comboboxen in dieser UF die aber wiederum andere Inhalte bekommen sollen.
Wie könnte ich diese Comboboxen gleichzeitig ansprechen? Mit einer Schleife oder gibt es die Möglichkeit einer Aufzälung (18 Stück)?

Danke für eure Hilfe und eine schöne Vorweihnachtszeit

StefanL

  

Betrifft: schau Dir mal TypeName(Objekt) an ... owT
von: Matthias L
Geschrieben am: 03.12.2018 17:34:43




  

Betrifft: AW: Comboboxen füllen
von: Hajo_Zi
Geschrieben am: 03.12.2018 17:41:27

Hallo Stefan,

setze die Tag Eigenschaft.

Option Explicit

Private Sub CMD_Liste1_Click()
    Dim ObCb As Object
    For Each ObCb In Me.Controls
        Select Case TypeName(ObCb)
            Case "ComboBox"
                If ObCb.Tag = "A" Then
                    ' füllen
                End If
        End Select
    Next ObCb
End Sub
GrußformelHomepage

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.


  

Betrifft: AW: Comboboxen füllen
von: StefanL
Geschrieben am: 04.12.2018 14:53:57

Danke erst einmal an euch beide, für die schnellen Antworten.

Hallo Hajo,

da ich noch blutiger Anfänger bin, verstehe ich noch nicht ganz was du da für mich geschrieben hast. Liegt wahrscheinlich auch daran das ich mir ein Projekt in den Kopf gesetzt habe und das vielleicht ein wenig zu schwer für mich ist. Aber ich gebe nicht auf. Ich habe mal die entsprechende Datei hochgeladen um meine Vorhaben mal zu visualisieren.
Danke nochmal für deine Hilfe.

Gruß Stefan

http://www.herber.de/bbs/user/125878.xlsm


  

Betrifft: AW: Comboboxen füllen
von: Hajo_Zi
Geschrieben am: 04.12.2018 20:03:20

hallo Stefan,

ich kann nicht helfen, da mehrer Objekte auf meinem Rechner nicht verfügbar.

Gruß Hajo


  

Betrifft: AW: Comboboxen füllen
von: StefanL
Geschrieben am: 05.12.2018 10:23:33

Hallo Hajo,

Danke nochmal für deine Hilfe. Ich habe es jetzt hinbekommen auch wenn ich gestehen muss noch nicht alles ganz verstanden zu haben. Aber jetzt kann ich meine Boxen füllen und ansprechen. "Tag" in die Eigenschaften eintragen und den Code füllen.
So sieht es jetzt aus:

Private Sub UserForm_Initialize()                      
    Dim ObCb As Object
    For Each ObCb In Me.Controls
        Select Case TypeName(ObCb)
            Case "ComboBox"
                If ObCb.Tag = "A" Then
                
                With ObCb
                    .AddItem ("Michelin XTA")
                    .AddItem ("Michelin XTE")
                    .AddItem ("Conti Hybrit")
                    .AddItem ("Conti XXXX")
                    .AddItem ("Conti YYY")
                    .AddItem ("Fulda HHH")
                    
             End With
                    
                    ' füllen
                End If
        End Select
    Next ObCb
End Sub



  

Betrifft: AW: Comboboxen füllen
von: StefanL
Geschrieben am: 04.12.2018 15:53:21

Hallo Hajo,

meintest Du mit "setzte die Tag Eigenschaft", gehe zu den Eigenschaften der betreffenden Comboboxen und schreibe bei Tag ein "A" rein? Und dann fülle den Code mit AddItem...?
z.B.

Private Sub CMD_Liste1_Click()
Dim ObCb As Object
For Each ObCb In Me.Controls
Select Case TypeName(ObCb)
Case "ComboBox"
If ObCb.Tag = "A" Then

.AddItem "Michelin XTA"
.AddItem "Michelin XTE"
.AddItem "Conti Hybrit"
.AddItem "Conti XXXX"
.AddItem "Conti YYY"
.AddItem "Fulda HHH"

' füllen
End If
End Select
Next ObCb

Funktioniert leider nicht. Was mache ich falsch?

Gruß Stefan