Private Sub UserForm_Initialize()
    Dim nRow As Long, n As Long, nCount As Long
    Dim i As Integer, nIndex As Integer
    Dim r As Excel.Range
 
    With ListBox1
       .ColumnHeads = True 'Definiert Columheader
       .ColumnCount = 8 '8 spaltige Listbox
    End With
 
    nRow = ActiveWorkbook.Sheets("Tabelle1").UsedRange.Rows.Count
    ActiveWorkbook.Sheets("Tabelle1").Columns("O:O").Select
 
    For Each r In Application.Selection
       If r.Row > nRow Then Exit For
       n = DateDiff("d", r.Value, Now)
       If (n >= -7 And n <= 0) Then
          For i = 0 To 7
            nIndex = Choose((i + 1), 3, 4, 6, 7, 9, 10, 15, 16)
            ListBox1.AddItem
            ListBox1.List(nCount, i) = ActiveSheet.Cells(r.Row, nIndex)
          Next
          nCount = nCount + 1
       End If
    Next
 
End Sub