Hi Celina,
folgendes müsste Dir helfen:
kopiere das folgende makro in ein modul (mit alt+f11 kommst du in die VBA-Umgebung):
Sub datum()
Dim lR%, i%
lR = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For i = lR To 1 Step -1
dat = Date
If Range("a" & i).Value < dat Then Rows(i).Hidden = True
Next i
Application.ScreenUpdating = False
End Sub
damit es beim öffnen/ändern automatisch aufgerufen wird klicke auf "diese arbeitsmappe". Wähle im linken Dropdown-Fenster "Workbook" und im rechten Dropdown-Fenster "Open" und "Sheet Change". Füge nun zwischen Private... und End Sub den Text "Call Datum" ein (ruft beim Öffnen und beim Ändern des Workbooks das Makro "Datum" automatisch auf)
Private Sub Workbook_Open()
Call datum
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call datum
End Sub
Hoffentlich hilft es Dir,
LG
Andreas:-)