Zellen ab bestimmten Datum ausblenden über VBA

Bild

Betrifft: Zellen ab bestimmten Datum ausblenden über VBA von: Holger
Geschrieben am: 09.04.2005 08:41:37

Hallo zusammen,

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
Bild


Betrifft: AW: Zellen ab bestimmten Datum ausblenden über VBA von: Ramses
Geschrieben am: 09.04.2005 08:46:15

Hallo

was läuft denn nicht ?

Gruss Rainer


Bild


Betrifft: AW: Zellen ab bestimmten Datum ausblenden über VBA von: Holger
Geschrieben am: 09.04.2005 08:48:20

Bekomme die meldung.

Erwarte Datenfeld


Bild


Betrifft: AW: Zellen ab bestimmten Datum ausblenden über VBA von: Ramses
Geschrieben am: 09.04.2005 09:00:49

Hallo

das sollte dir aber schon einen Hinweis geben

If ActiveCell.Value > heute() - 1 Then

Was fällt dir auf ?
Das ist die einzige Codeanweisung in Deutsch :-)

If ActiveCell.Value > date - 1 Then

Ausserdem solltest du die Schleife von hinten nach vorne durchführen, weil du sonst mit der "TopDown"-Variante Zeilen prüfst die du teilweise bereits ausgeblendet hast, und die Prüfung nicht mehr stimmt

For i = ActiveSheet.UsedRange.Rows.Count to 1 Step -1

Gruss Rainer


Bild


Betrifft: Danke Rainer von: Holger
Geschrieben am: 09.04.2005 09:08:31

Vielen Dank
jetzt läuft es so wie ich es möchte.

Holger


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellen ab bestimmten Datum ausblenden über VBA"