Office: ComboBox Automatisch füllen

Hallo Excel-Profis,
zunächst wünsche ich ein erfolgreiches neues Jahr. Hier mein neues Problem:
Kann ich eine ComboBox in einer Userform füllen mit Daten aus der z.B. Tabelle 1 Range A2:A10 ?
Mit der Additem Funktion habe ich dabei Probleme

Code:

UserForm1.ComboBox1.AddItem = Range("A2:A10")

Danke
Gruß Norbert

 

gebe vor range noch die Tabelle an.
Worksheets("Tabelle1").

 

Hallo Hajo,

Code:

Userform1.ComboBox1.AddItem = Worksheets("Tabelle1").Range("A:A10")

Der Debugger meckert "AddItem" an - mit "ListFillRange" habe ich auch probiert. Ebenso habe ich das "=" weg gelassen.
Gruß Norbert

 

Hallo Norbert,

es war mir nicht aufgefallen das = ist falsch, das muss fort. Ich war auch davon ausgegangen das der Code geht.

Gruß Hajo

 

Hallo Hajo,
der Debugger schmeißt einen Typenkonflikt die ZAhl irgendwas mit -21458.....!!

Code:

Private Sub UserForm_Activate()
Userform1.ComboBox1.AddItem Worksheets("Tabelle1").Range("A2:A10")

End Sub

Gruß Norbert

 

Hallo Norbert,

ich habe cdas Beispiel jetzt nachgebaut.

Code:

Option Explicit

Private Sub UserForm_Activate()
    ComboBox1.RowSource = "Tabelle1!A1:A10"
End Sub

Gruß Hajo

 

Hallo Hajo,
vielen Dank - Rowsource Funktioniert - ich kannte das Agument noch nicht.
Gruß NOrbert

 

Hallo Norbert,

falls der Bereich immer der gleich ist, kannst Du es sofort bei den Eigenschaften (im vba Editor) eintragen. Diese Variante hat den Vorteil ändert sich der Zellinhalt, wird das in der ComboBox sofort angezeigt.

Gruß Hajo