Tabelle in Listbox übertragen
22.12.2020 15:12:45
Longo
Ich möchte eine Tabelle in eine Listbox übertragen. Ich schaffe es jedoch nur 10 Spalten einzulesen. Sobald ich die Spalten L, M und N hinzufügen möchte, kommt Laufzeitfehler 380.
Private Sub UserForm_Initialize()
Dim lngZeile As Long
Dim lngZeileMax As Long
Dim lngz As Long
With ThisWorkbook.Worksheets("Quelldaten")
Me.ListBox1.ColumnCount = 13
Me.ListBox1.ColumnWidths = "85;55;125;155;60;65;110;110;65;55;75;65;65"
lngZeileMax = .Range("H" & .Rows.Count).End(xlUp).Row
Me.ComboBox1.RowSource = .Name & "!H1:H" & lngZeileMax
lngZeileMax = .Range("I" & .Rows.Count).End(xlUp).Row
Me.ComboBox2.RowSource = .Name & "!I1:I" & lngZeileMax
End With
With ThisWorkbook.Worksheets("Verkehrsunfälle")
lngZeileMax = .Range("B" & .Rows.Count).End(xlUp).Row
For lngZeile = 3 To lngZeileMax
Me.ListBox1.AddItem .Range("B" & lngZeile).Text
Me.ListBox1.Column(1, lngz) = .Range("C" & lngZeile).Text
Me.ListBox1.Column(2, lngz) = .Range("D" & lngZeile).Value
Me.ListBox1.Column(3, lngz) = .Range("E" & lngZeile).Value
Me.ListBox1.Column(4, lngz) = .Range("F" & lngZeile).Value
Me.ListBox1.Column(5, lngz) = .Range("G" & lngZeile).Value
Me.ListBox1.Column(6, lngz) = .Range("H" & lngZeile).Value
Me.ListBox1.Column(7, lngz) = .Range("I" & lngZeile).Value
Me.ListBox1.Column(8, lngz) = .Range("J" & lngZeile).Value
Me.ListBox1.Column(9, lngz) = .Range("K" & lngZeile).Value
Me.ListBox1.Column(9, lngz) = .Range("K" & lngZeile).Value
lngz = lngz + 1
Next lngZeile
Me.ListBox1.ListIndex = 0
End With
End Sub