Private Sub UserForm_Initialize()
 
Dim arr() As Variant
Dim iRow, iRowU, Letzte As Long
ListBox1.Clear
Letzte = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 3 To Letzte
    If Cells(iRow, 15) <= Date + 7 Then
        ReDim Preserve arr(0 To 8, 0 To iRowU)
        arr(0, iRowU) = Cells(iRow, 3)
        arr(1, iRowU) = Cells(iRow, 4)
        arr(2, iRowU) = Cells(iRow, 6)
        arr(3, iRowU) = Cells(iRow, 7)
        arr(4, iRowU) = Cells(iRow, 9)
        arr(5, iRowU) = Cells(iRow, 10)
        arr(6, iRowU) = Cells(iRow, 15)
        arr(7, iRowU) = Cells(iRow, 16)
        iRowU = iRowU + 1
    End If
Next iRow
ListBox1.Column = arr
End Sub

ich bin über jede kleine hilfe sehr dankbar, weil ich versuche mir das vb selber bei zu bringen...