Ergebnisse in einer Listbox in Spalten darstellen

Private Sub UserForm_Initialize()

    Dim ws As Worksheet

    Dim currentDate As Date

    Dim targetDate As Date

    Dim i As Long

    Dim j As Long

    Dim k As Long

    Dim rowIndex As Long

    Dim counts(1 To 11) As Long

    Dim labels(1 To 11) As String



    Set ws = ThisWorkbook.Sheets("Projektplan")

    currentDate = Date

    targetDate = ws.Range("R7").Value + 7

    

    With ListBox1

        .ColumnCount = 12

        .ColumnWidths = "200;40;40;40;40;40;40;40;40;40;40;40"

        .Left = 10

        .Top = 10

        .Width = 1200

        .Height = 100

        .BorderStyle = 1

        .SpecialEffect = 2

    End With

    

    For i = 7 To gLR

        If ws.Cells(i, "R").Value + 7 > currentDate Then

            rowIndex = ListBox1.ListCount

            ListBox1.AddItem ws.Cells(i, "B").Value



            For j = 1 To 11

                counts(j) = Application.WorksheetFunction.CountIf(ws.Range("W" & i & ":NX" & i), j)

            Next j



            counts(10) = counts(10) + Application.WorksheetFunction.CountIf(ws.Range("W" & i & ":NX" & i), "P")



            labels(1) = counts(1)

            labels(2) = counts(2)

            labels(3) = counts(3)

            labels(4) = counts(4)

            labels(5) = counts(5)

            labels(6) = counts(6)

            labels(7) = counts(7)

            labels(8) = counts(8)

            labels(9) = counts(9)

            labels(10) = counts(10)

            labels(11) = counts(11)



            For k = 1 To 11

                ListBox1.AddItem labels(k)

            Next k

        End If

    Next i

End Sub