Dynamische Combobox

Hab lange keine Excelmacros mehr geschrieben darum dachte ich das ich mal wieder hier vorbei schaue.

Ich wollt anhand eines Worksheets welches nur Name enthällt eine Combobox befüllen. Die anzahl an Namen kann sich jederzeit ändern darum das ganze auch dynamisch.

Leider funktionieren meine ganzen ansätze nicht. Eigentlich wollt ich anfangen mit einer Schleife die kontrolliert ob der ihnalt der Zelle <> "" (also nicht leer) ist. Wenn der was in der Zelle findet soll der das in eine Variable schreiben und dann an die Combobox übergeben werden. Alles was ich versucht habe hat dazu geführt das nichts in der ComboBox steht. Leider habe ich jetzt alles einfach gelöscht weil ich so sauer war das ich das nicht hinbekommen habe und kann deshalb nicht meine ansätze posten.


Ich hoffe ihr könnt mir helfen.

MfG Sebastian

'ComboBox in UserForm  
With UserForm1.ComboBox1
    .RowSource = Sheets("Tabelle1").Range("A1").CurrentRegion.Address  
    .ListIndex = 0
End With

'ComboBox in Worksheets einbetten  
With ComboBox1
    .ListFillRange = Range("A1").CurrentRegion.Address  
    .ListIndex = 0
End With

'ComboBox in UserForm   
With UserForm1.ComboBox1 
    .RowSource = Sheets("name").Range("A1").CurrentRegion.Address   
    .ListIndex = 0 
End With 

Private Sub UserForm_Initialize()
    With ComboBox1
        .RowSource = Sheets("name").Range("A1").CurrentRegion.Address  
        .ListIndex = 0
    End With
End Sub

Private Sub UserForm_Initialize()

Worksheets("name").Activate  
ActiveCell.CurrentRegion.Select

    With ComboBox1
        .RowSource = Sheets("name").Range("A1").CurrentRegion.Address  
        .ListIndex = 0
    End With

Worksheets("1").Activate  
ActiveCell.CurrentRegion.Select


End Sub

Private Sub UserForm_Initialize()
    Dim Wks As Worksheet
    
    Set Wks = Sheets("name")  
    
    With ComboBox1
        .RowSource = Wks.Name & "!" & Wks.Range("A1").CurrentRegion.Address  
        .ListIndex = 0
    End With
End Sub

.RowSource = Wks.Name & "!A1:A" & Wks.Cells(Wks.Rows.Count, "A").End(xlUp).Row