ich bekomme die Fehlermeldung laufzeitfehler '380':
Eigenschaft list konnte nicht gesetzt werden. Ungültiger Eigenschaftenwert.
Die Fehlermeldung kommt auch nur wen ich den letzten part > ( Me.ListBoxAuto.List(Me.ListBoxAuto.ListCount - 1, 10) = Fahrzeugbestand.Cells(Zeile, 12).Value) Hinzufüge
ohne den letzten part Funktioniert alles
Check nicht wiso
kann mir da jemand weiter helfen

Private Sub UserForm_Initialize()

    'ComboBox befüllen
Marke.List = Array("Mercedes Benz", "BMW", "Audi", "Volkswagen", "Opel", "Ford", "Skoda", "Renault", "Hyundai", "Mazda", "Kia")
Außenfarbe.List = Array("Schwarz", "Weiß", "Grau", "Silber", "Blau", "Rot", "Gelb", "Braun", "Beige", "Gold", "Grün", "Orange", "Violet")
Kraftstoff.List = Array("Benzin", "Diesel", "Elektro")
Getriebe.List = Array("Automatik", "Manuel")
Fahrzeugtyp.List = Array("Kleinwagen", "Limousine", "Kombi", "Cabrio", "SUV/Geländewagen", "Van/Bis", "Coupe")
Türen.List = Array("2/3", "4/5", "6/7")
Innenausstattung.List = Array("Vollleder", "Teilleder", "Stoff", "Velours", "Alcantara")

Dim Zeile As Long

'Schleife über alle Zeilen der Tabelle
For Zeile = 2 To Fahrzeugbestand.Cells(Rows.Count, 2).End(xlUp).Row

    'ListBox befüllen
    Me.ListBoxAuto.AddItem Fahrzeugbestand.Cells(Zeile, 2).Value
    Me.ListBoxAuto.List(Me.ListBoxAuto.ListCount - 1, 1) = Fahrzeugbestand.Cells(Zeile, 3).Value
    Me.ListBoxAuto.List(Me.ListBoxAuto.ListCount - 1, 2) = Fahrzeugbestand.Cells(Zeile, 4).Value
    Me.ListBoxAuto.List(Me.ListBoxAuto.ListCount - 1, 3) = Fahrzeugbestand.Cells(Zeile, 5).Value
    Me.ListBoxAuto.List(Me.ListBoxAuto.ListCount - 1, 4) = Fahrzeugbestand.Cells(Zeile, 6).Value
    Me.ListBoxAuto.List(Me.ListBoxAuto.ListCount - 1, 5) = Fahrzeugbestand.Cells(Zeile, 7).Value
    Me.ListBoxAuto.List(Me.ListBoxAuto.ListCount - 1, 6) = Fahrzeugbestand.Cells(Zeile, 8).Value
    Me.ListBoxAuto.List(Me.ListBoxAuto.ListCount - 1, 7) = Fahrzeugbestand.Cells(Zeile, 9).Value
    Me.ListBoxAuto.List(Me.ListBoxAuto.ListCount - 1, 8) = Fahrzeugbestand.Cells(Zeile, 10).Value
    Me.ListBoxAuto.List(Me.ListBoxAuto.ListCount - 1, 9) = Fahrzeugbestand.Cells(Zeile, 11).Value
    Me.ListBoxAuto.List(Me.ListBoxAuto.ListCount - 1, 10) = Fahrzeugbestand.Cells(Zeile, 12).Value
    
    
Next Zeile

'Erstes Element auswählen
Me.ListBoxAuto.Selected(0) = True

End Sub