Office: Mehreren ComboBoxen den gleichen Inhalt zuweisen

spiderspace · 18. November 2014

Guten Abend,

ich habe mehrere ComboBox-Elemente, die zum einen alle die gleichen Werte enthalten und zum zweiten alle die gleiche Prozedur beinhalten sollen.

Nun habe ich gelesen, dass man die ComboBox-Element über Controls "gemeinsam ansprechen" könnte.
Daher habe ich Dieser Arbeitsmappe dieses Prozedur geschrieben.

Code:

Private Sub Workbook_Open()
With ThisWorkbook.Worksheets("Schritt 1")

Dim i As Byte

For i = 1 To 17
.Controls("ComboBox" & CStr(i)).List = Array("1", "2", "3", "4", "5", "6")
Next i
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich bekomme leider folgende Meldung:

Laufzeitfehler '438': Objekt unterstützt diese Eigenschaft oder Methode nicht
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was muss ich machen, damit das funktioniert?

Danke schon mal,
spiderspace

:)

Luschi · 19. November 2014

Hallo spiderspace,

hier mal 2 Möglichkeiten: Code:

Private Sub Workbook_Open()
Dim i As Byte
With ThisWorkbook.Worksheets("Schritt 1")
For i = 1 To 17
.OLEObjects("ComboBox" & CStr(i)).Object.List = Array("1", "2", "3", "4", "5", "6")
Next i
End With
End Sub

Private Sub Workbook_Open()
Dim ObjOLE As OLEObject

With ThisWorkbook.Worksheets("Schritt 1")

For Each ObjOLE In .OLEObjects
If TypeOf ObjOLE.Object Is MSForms.ComboBox Then
ObjOLE.Object.List = Array("1", "2", "3", "4", "5", "6")
End If
Next ObjOLE
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

spiderspace · 20. November 2014

Hi,

danke funktioniert beides.
Was ist der unterschied zwischen den beiden Prozeduren?

spiderspace · 20. November 2014

Hi,

kann man statt "for i = 1 to 17", die Schleife auch so lange laufen lassen, wie es ComboBoxen gibt, ohne das man die konkrete Anzahl angeben muss?

Dachte, dass man das vielleicht mit einer while-Schleife machen könnte, ich weiß nur leider nicht, wie man dann die Abbruchbedingung formulieren würde.

(Hintergrund: Plane noch einen Button, dass man bei Bedarf weitere hinzufügen kann, die sollten dann aber natürlich auch direkt befüllt werden.)

Danke schon mal und einen schönen Tag,
spiderspace

Luschi · 20. November 2014

Hallo spiderspace,

genau das macht doch die 2. Variante mit: For Each ObjOLE In .OLEObjects
Da werden ALLE OLE-Steuerelemente durchlaufen und die ComboBoxen herausgefiltert (If TypeOf ObjOLE.Object Is MSForms.ComboBox Then)

Gruß von Luschi
aus klein-Paris

spiderspace · 21. November 2014

Danke für die Erklärung.

Ich habe eine ComboBox, die nicht das machen soll, was alle anderen machen.
Beim befüllen habe ich das jetzt dadurch gelöst, dass ich sie nach der Schleife einfach noch so, wie ich sie haben will definiert habe.

Code:

Private Sub Workbook_Open()
Dim ObjOLE As OLEObject

With ThisWorkbook.Worksheets("Tabelle1")
For Each ObjOLE In .OLEObjects
If TypeOf ObjOLE.Object Is MSForms.ComboBox Then
ObjOLE.Object.List = Array("1", "2", "3", "4", "5", "6")
End If
Next ObjOLE
.ComboBoxStart.List = Array("2", "3", "4", "6", "7", "8")
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gibt es eine elegantere Lösung?

Luschi · 21. November 2014

Hallo spiderspace,

Gibt es eine elegantere Lösung?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit solcher Fragestellung kann ich nicht viel anfangen. Trotzdem hier ein weiterer Tipp: Code:

If ObjOLE.Name "ComboBox2" Then
ObjOLE.Object.List = Array("1", "2", "3", "4", "5", "6")
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luchi
aus klein-Paris

spiderspace · 22. November 2014

Hi,

meinte eine Lösung, in der die eine ComboBox nicht zweimal definiert wird, also genau das was du dann geschrieben hast.
Danke!

Noch eine andere Sache.

Ich habe dann ein ComboBox1_Change Ereignis. Wie kann ich diese denn so ansprechen, dass dann auch alle ComboBox-Elemente (bis auf eins) angesprochen werden?
Habe es mit mit der Bildung einer Klasse versucht:

Code:

Private WithEvents objComboBox As MSForms.ComboBox

Private Sub objComboBox_Change()
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bekomme für den blauen Teil des Codes aber immer folgende Fehlermeldung:

Fehler beim Kompilieren
Ungültiges Attribut in Sub oder Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kannst du mir weiterhelfen?

Danke schon mal und viele Grüße,
spiderspace

Office: Mehreren ComboBoxen den gleichen Inhalt zuweisen

Mehreren ComboBoxen den gleichen Inhalt zuweisen

Mehreren ComboBoxen den gleichen Inhalt zuweisen

Mehreren ComboBoxen den gleichen Inhalt zuweisen

Mehreren ComboBoxen den gleichen Inhalt zuweisen

Mehreren ComboBoxen den gleichen Inhalt zuweisen - Similar Threads - Mehreren ComboBoxen gleichen

ComboBox zeigt Inhalt nicht mehr an

Mehrere ComboBoxen mit gleichem Inhalt füllen

Combobox: Mehrere Spalten auslesen

Kombinationsfeld (Combobox) Mehrere Werte übergeben

Combobox, Dropdown für mehrere Zellen

eine initialisierung für mehrere Comboboxen

Makro nicht mehr von ComboBox,sonder aus Zelle