moin

vielleicht so?

Private Sub UserForm_Initialize()
    Dim varDaten As Variant
    Dim lngLetzte As Long
    With Sheets("Objekte")
        lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
        varDaten = .Range("A2:A" & lngLetzte)
    End With
    ComboBox1.List = varDaten
End Sub

mfg