Zellen ab bestimmten Datum ausblenden über VBA
09.04.2005 08:41:37
Holger
ich habe in Spale A ein Datum und zwar vom 01.01.2005 - 31.12.2005 stehen,
nun möchte ich über ein Makro prüfen ob das Datum der Zelle vor heute liegt.
Wenn dies der fall ist möchte ich die Zeile ausblenden.
Mein Code sieht bis jetzt so aus
Private Sub Worksheet_Activate()
Dim i As Long
Dim heute As Date
Sheets("Themen für nächste Sitzung").Activate
For i = 1 To ActiveSheet.UsedRange.Rows.Count
Range("A" & i).Select
If ActiveCell.Value > heute() - 1 Then
ActiveCell.EntireRow.Hidden = True
Else
End If
Next i
End Sub
nur leider läuft er nicht.
Wenn Ihr mir helfen könnt wäre ich euch sehr Dankbar
Holger
Anzeige