Office: VBA Comboboxnamen mit Zählvariable

Hallo,

Ich habe ungefähr 50 Comboboxen in Excel untereinander in einer Spalte stehen. Diese sollen eigentlich alle das Gleiche ausführen. Ich möchte aber nicht im im Visual Basic 50 mal den selben Code eingeben. Ist es irgendwie möglich hinter dem Namen der Box eine Zählvariable so zu platzieren, dass man mit einer Schleife die einzelnen Comboboxen ansprechen kann???

z.B.: For i=1 to 50
If ComboBox"i" = " irgendwas" Then
Worksheets("TABELLE1").Cells(i, 1)= "irgendwas"
Next i

Danke im voraus

Karo

 

Hallo Karo,

das kannst du z.B. so lösen:

Code:

Option Explicit

Sub test()
Dim intZahl As Integer
Dim objCb As OLEObject
intZahl = 0
 For Each objCb In Worksheets("Tabelle1").OLEObjects
    If objCb.progID = "Forms.ComboBox.1" And _
    objCb.Object.Value = "" Then '"" anpassen
        intZahl = intZahl + 1
        Range("A" & intZahl).Value = "x"
    End If
 Next objCb
End Sub