Listbox füllen

Guten Tag
Ich möchte eine Listbox mit mehr als 10 Spalten befüllen.
Mit meinem Code funktioniert es fast. Leider habe ich in der Listbox nur die letzte Zeile angezeigt. Was mache ich falsch?

Besten Dank für Eure Hilfe.

Freundliche Grüsse Daniel Eberhard



Private Sub UserForm_Initialize()



    Dim Zeile As Long

    Dim i As Long

    Dim varData()

    Dim AnzahlZeile As Integer

    Dim ZList As Integer

    

    AnzahlZeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row

    

    With Me.ListBox1

        .Clear

        .ColumnCount = 13

        .ColumnWidths = "120;120;50;50;50;20;120;50;50;50"

        .Font.Size = 10

    End With

    

    For Zeile = 2 To AnzahlZeile

        For ZList = 0 To AnzahlZeile - 1

    

            ReDim varData(AnzahlZeile - 1, 12)

            

            varData(ZList, 0) = Tabelle1.Cells(Zeile, 1).Value

            varData(ZList, 1) = Tabelle1.Cells(Zeile, 2).Value

            varData(ZList, 2) = Tabelle1.Cells(Zeile, 3).Value

            varData(ZList, 3) = Tabelle1.Cells(Zeile, 4).Value

            varData(ZList, 4) = Tabelle1.Cells(Zeile, 5).Value

            varData(ZList, 5) = Tabelle1.Cells(Zeile, 6).Value

            varData(ZList, 6) = Tabelle1.Cells(Zeile, 7).Value

            varData(ZList, 7) = Tabelle1.Cells(Zeile, 8).Value

            varData(ZList, 8) = Tabelle1.Cells(Zeile, 9).Value

            varData(ZList, 9) = Tabelle1.Cells(Zeile, 10).Value

            varData(ZList, 10) = Tabelle1.Cells(Zeile, 11).Value

            varData(ZList, 11) = Tabelle1.Cells(Zeile, 12).Value

            varData(ZList, 12) = Tabelle1.Cells(Zeile, 13).Address

            Me.ListBox1.List = varData

        Next ZList

    Next Zeile

End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Listbox füllen

27.11.2023 09:07:39

Alwin Weisangler

AW: Listbox füllen

27.11.2023 09:16:20

Alwin Weisangler

AW: Listbox füllen

27.11.2023 09:37:03

Alwin Weisangler

AW: Listbox füllen

27.11.2023 09:20:03

Daniel Eberhard

AW: Listbox füllen

27.11.2023 10:15:47

onur

AW: Listbox füllen

27.11.2023 10:27:45

Alwin Weisangler

AW: Listbox füllen

27.11.2023 10:30:25

onur

Dim arrData() arrData = Tabelle1.Range("A1:L" & Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row).Value ReDim Preserve arrData(1 To UBound(arrData), 1 To 13) For i = 1 To UBound(arrData) arrData(i, 13) = Tabelle1.Cells(i, 13).Address Next i

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread