Combobox füllen
27.05.2003 10:09:49
Matthias H.
ich habe in einem Arbeitsblatt mehrere Comboboxes, die ich beim Öffnen füllen möchte. Um unnötige Wiederholungen zu vermeiden verwende ich eine Schleife. Allerdings gibt es einen Laufzeitfehler 438 (Objekt unterstützt diese Eigenschaft oder Methode nicht).
In einer UserForm funktioniert dieser Code aber(allerdings ohne Angabe des Pfades Sheets("..."))
Woran kann das liegen?
Gruß
Matthias
Dim box As Integer, c As Integer
For box = 1 To 2
For c = 8 To 13
Sheets("Blatt1").Controls(ComboBox & box).AddItem Cells(3, c)
Next
Next