Makrogesteuertes Reduzieren einer Datumsliste (Reduzieren der Zeilen), so dass immer nur die Zeilen ab dem aktuellen Datum angezeigt werden, so

Question

Hallo,
ich habe eine Tabelle, die ich als Kalender nutze mit dem fortlaufenden Datum in Spalte A, für jeden Tag also immer eine Zeile.
Zwecks Übersichtlichkeit möchte ich gerne diese Tabelle mit der Gliederungsfunktion um die Zeilen reduzieren, die vor dem aktuellen Datum liegen, so dass in der Anzeige immer als erste Zeile des eigentlichen Kalenderbereichs die Zeile mit dem aktuellen Datum und dann die die darunter liegenden Zeilen angezeigt werden.
Vielen Dank für gute Ideen

Answer 1

Hallo,

teste mal folgenden Code

Option Explicit

Private Sub Worksheet_Activate()
Dim rngc As Range
Application.ScreenUpdating = False
For Each rngc In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If rngc < Date Then Rows(rngc.Row).EntireRow.Hidden = True
Next
Application.ScreenUpdating = True
End Sub

Er gehört in das Codemodul des relevanten Arbeitsblattes und wird bein Aktivieren desselben wirksam.

Gruß
Rainer

Answer 2

hi all ^^

eine weitere variante in Wechselwirkung
mit bezug auf ungerade(<> oder < oder >) zu heute

gruss nighty

Sub FilterDatum()
Dim Qdate As Date
Qdate = Mid(Now, 1, 10)
If ActiveSheet.AutoFilterMode = False Then
ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row, 1)).AutoFilter Field:=1, Criteria1:="<>" & CDbl(Qdate), Operator:=xlAnd
Else
ActiveSheet.Range("A1").AutoFilter
End If
End Sub