Combobox über Schleife füllen
20.09.2007 11:45:00
Herbert
Ich habe in einer Userform 4 Comboboxen, die mit den gleichen Werten gefüllt werden sollen. Dies möchte ich über eine Schleife machen, aber - hier ist es vorbei mit den Kenntnissen. Bestimmt kann mir jemand helfen.
set wks =ThisWorkbook.Worksheets("Tabelle2")
with wks
Me.cboWahl1.List_
.Range(.Cells(1,1), .Cells(_
.UsedRange.Rows.Count,1).Value
end With
Das funktioniert
Jetzt habe ich noch 3 Combo´s (cboWahl2, cboWahl3, cboWahl4).
Danke im Voraus
Herbert
