Excel, Vba, Combobox in Tablle ansprechen

Computer: Software & Programmierung Visual Basic
1

Hallo

mein Problem ist, dass ich mehrere Combobox in ein Excel-Sheet eingebettet habe und die mit einem Laufindex ansprechen will.
Normalerweise funktioniert das auch über den „Controls“-befehl aber diesmal nicht (wahrscheinlich, weil es nicht in einer Userform eingebettet ist?)
Hier ein Bsp:

For pos_i = 1 To 25
If Worksheets(„Worksheet1“).Controls(„ComboBox“ & (1 + pos_i).ListCount = 0 Then
[…]
End If
Next pos_i

2

Hallo Soumi,

innerhalb eines Worksheets hast Du keine Controls-Auflistung. Hier musst Du über die Shapes-Auflistung gehen (und dabei sicherheitshalber noch den Typ abfragen oder wirklich über die Namen gehen).

Gruß, Manfred

3

Hey
habe das jetzt soweit über die Object auflistung gemacht, aber wie schaffe ich das nun, dass er ggfs. diese Comboboxen ausblendet? mit

for idx=1 to 175
Worksheets(1).OLEObjects(„ComboBox“ & idx).Object.Visible = False
next idx

funzt es nicht. DA haut der mir einen Fehler raus.

Vielen Dank

Johannes

4

Alles klar, hat sich erledigt. es hätte heíßen müssen:

for idx=1 to 175
Worksheets(1).OLEObjects(„ComboBox“ & idx).Visible =
False
next idx

Vielen Dank trotzdem

Johannes