Nur sichtbare Zeilen filtern
12.09.2006 12:30:22
Gregor
mit fogendem Makro blende ich nichterwünschte Zeilen aus.
Sub Zeilen_ausblenden()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim Bereich As Range
Dim Zelle As Range
intLastRow = Cells(Rows.Count, 4).End(xlUp).Row
Set Bereich = Range(Cells(10, 4), Cells(intLastRow, 4))
For Each Zelle In Bereich
If Zelle.Value <> "LZ" Then
Zelle.Select
Zeile = ActiveCell.Row
Rows(Zeile).Hidden = True
End If
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Nun will ich die sichtbaren (noch eingeblendeten) Zeilen nach Datum von bis filtern (Datum steht in Spalte 3).
Folgender Befehl filtert alle Zeilen:
datAnfang = 01.09.2006
datEnde = 30.09.2006
Range(Cells(9, 1), Cells(9, 3)).Select
Selection.Autofilter
Selection.Autofilter Field:=3, Criteria1:=">=" & CDbl(datAnfang), _
Operator:=xlAnd, Criteria2:=" Welche Möglichkeit gibt es nur eingeblendete Zeilen zu filtern?
Vielen Dank
Gregor
Anzeige