---

Hallo Forum,

Habe 8 Combo Boxen die die selbe auswahl haben sollen. Möchte dies mit einer Schleife machen. Habe es mit folgenden Code probiert. Funktioniert aber nicht:

Public Sub cbo_ausfüllen()

    Dim j As Integer

    For j = 1 To 8
    If j > 8 Then Exit For

        cbous(j).AddItem "x"
        cbous(j).AddItem "xx"
        cbous(j).AddItem "xxx"

    Next j
End Sub

Der wird mit einer Sub in Modul1 gestartet. Der Code selbst steht in einem UserForm. Die cbous1 bis cbous8 sind die Combo Boxen 1-8.

Was mache ich Falsch?

Danke
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas,

kannst comboboxen so nicht ansprechen (cbous(j).AddItem "x"). die heissen ja wahrscheinlich 'cbous1', 'cbous2', usw. Aus diesem Grunde müsstest du noch eine äussere Schleife einfügen, die durch die Comboboxen durchiteriert. Am besten auch mit einer For-Schleife und dann solltest Du wieder auf die Methode AddItem zugreifen können.

Gruss TP

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo TP,

habe nicht sehr viel Ahnung mit Visual Basic, deshalb habe ich das jetzt nicht ganz kapiert. Könntest du mir ein kleines Beispiel machen?.

Danke
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas,

musst Du noch an deinen Code anpassen ...

Code:

---

Sub test()

Dim cbo As ComboBox

For Each cbo In UserForm1.Controls

    cbo.AddItem "x"
    cbo.AddItem "xx"
    cbo.AddItem "xxx"
   

Next cbo

UserForm1.Show

End Sub

---

Gruss TP

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo TP,

hat leider nicht funktioniert.
Habe bei For Each cbo In UserForm1.Controls einen Laufzeitfehler 13 bekommen.

nochmals Danke
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

'Userform1' ... musst Du mit dem Namen deines Formulares, in dem die Comboboxen sind, ersetzen.

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Habe ich gemacht. Habe es in "Fenster" umbenannt.
Sieht so aus:

Sub cbo_ausfüllen()

    Dim cbo As ComboBox
   
    For Each cbo In Fenster.Controls
       
        cbo.AddItem "x"
        cbo.AddItem "xx"
        cbo.AddItem "xxx"
       
    Next cbo

End Sub

Kann es damit zusammenhängen das ich verschiedene Register im UserForm habe.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja damit hängt es zusammen, da die Comboboxen ja nicht direkt im Formular mehr zu finden sind, sondern in dem RegisterSteuerelement enthalten sind. Ich kuck mal, ob ich da noch nen Beispiel zu hinbekomme.

Gruss TP

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Also Thomas,

es ist falsch, was ich in dem Beitrag vorher geschrieben habe!
Bei Registerkarten sind Objekte wie z.B. eine ComboBox nicht Teil des Registers, sondern doch ein Objekt im Formular.
Anders sieht es dagegen bei Multipages aus, dort sind Objekte wie z.b. ComboBoxen in das Objekt Multipage eingebettet und sind nur darüber ansprechbar.
Das Problem bei meinem ersten Code, ist einfach nur, das er versucht hat bei einem Objekt die Methode AddItem aufzurufen, welches diese aber nicht unterstützt. Somit ist nun nur noch eine Abfrage hinzugekommen, ob das Object, welches die Schleife gerade am Wickel hat auch eine ComboBox ist.
Ich hoffe es ist so verständlich.

Code:

---

Sub test()

Dim objFind As Variant
Dim cboBox As ComboBox

For Each objFind In UserForm1.Controls

    If TypeName(objFind) = "ComboBox" Then
        Set cboBox = objFind
       
        cboBox.AddItem "x"
        cboBox.AddItem "xx"
        cboBox.AddItem "xxx"
    End If

Next objFind

UserForm1.Show

End Sub

---

Schönes Wochenende
Gruss TP

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Funktioniert Super!!

Danke und Schönes Wochenende!
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP