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
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
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
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