Zeilen ausblenden wenn Datum in Spalte A kleiner h



Excel-Version: XL97
  

Re: Zeilen ausblenden wenn Datum in Spalte A kleiner h

von: Andreas
Geschrieben am: 17.04.2002 - 00:02:24


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:-)

nach unten

Betrifft: Zeilen ausblenden wenn Datum in Spalte A kleiner h
von: Celina Maier
Geschrieben am: 16.04.2002 - 17:27:37

hi leute,

wie stelle ich es an, daß zeilen, deren value in column A kleiner als heute ist beim tabellenöffnen und/oder neuberechnen der tabelle ausgeblendet werden.

plage mich schon einige zeit damit herum, finde aber keine saubere lösung!!

danke für die tipps!!


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zeilen ausblenden wenn Datum in Spalte A kleiner h"