726 Aufrufe
Gefragt in Tabellenkalkulation von want2cu Einsteiger_in (3 Punkte)
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

2 Antworten

0 Punkte
Beantwortet von rainberg Profi (14.9k Punkte)
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
0 Punkte
Beantwortet von nighty Experte (6.6k Punkte)
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
...