ComboBox per VBA-Code

Hallo Gehard
Versuche es mit diesem Code

Sub ComboboxFüllenBezug()
Worksheets("Tabelle1").ComboBox1.ListFillRange = _
"Tabelle1!A1:A7"
End Sub

In Zelle von A1:A7 mit Werten füllen

Gruß
Igi