Gruss
Ryu
Sub test()
For i = [D65536].End(xlUp).Row To 2 Step -1
If Cells(i, 4) - Date > 7 Or _
Date - Cells(i, 4) > 0 Then
Rows(i).Delete
End If
Next
End Sub
Sub Datumsbereich()
Dim lgzeile As Long
For lgzeile = 2 To Range("D65536").End(xlUp).Row
If Cells(lgzeile, 4) < Date Or Cells(lgzeile, 4) > Date + 6 Then
Rows(lgzeile).Hidden = True
End If
Next
End Sub
Sub AlleTermine()
Rows.Hidden = False
End Sub
Sub Datumsbereich()
Dim lgzeile As Long
For lgzeile = 2 To Range("D65536").End(xlUp).Row
Rows(lgzeile).Hidden = Cells(lgzeile, 4) < Date Or Cells(lgzeile, 4) > Date + 6
Next
End Sub