Thema Datum  Von Nutzer Rating
Antwort
Rot Listbox befüllen
08.06.2024 00:59:08 Lavdrim
Solved
08.06.2024 08:39:05 Alwin Weisangler
Solved
08.06.2024 09:57:40 Lavdrim
Solved

Ansicht des Beitrags:
Von:
Lavdrim
Datum:
08.06.2024 00:59:08
Views:
428
Rating: Antwort:
 Nein
Thema:
Listbox befüllen

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

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Listbox befüllen
08.06.2024 00:59:08 Lavdrim
Solved
08.06.2024 08:39:05 Alwin Weisangler
Solved
08.06.2024 09:57:40 Lavdrim
Solved