Mehrere Comboboxen gleich befüllen
21.06.2007 13:58:00
Alex
ich hab folgendes Problem:
Ich möchte 17 Comboboxen mit den gleichen Inhalten füllen. Kann ich das über eine for-Schleife machen?
Mein Code sieht so aus, funktioniert aber nicht:
Sub comboboxenfüllen()
Dim i as Integer
for i=1 to 17
with worksheets("Tabelle1").combobox & i
.clear
.additem"1"
.additem"2"
.additem"10"
end with
next
End Sub
Danke schonmal für eure Hilfe!
Grüße
Alex