AW: Filtern und vergleichen
29.01.2012 14:39:39
fcs
Hallo Walter,
Kriterien-Problem hat Hajo ja schon angesprochen.
Für das Filtern der Zeilen mit AU>AP ist es am einfachsten, eine Hilfsspalte in der Tabelle mit entsprechender Formel anzufügen.
Gruß
Franz
Sub FilterDatum()
Dim wks As Worksheet
Dim LetzteZeile As Long
Const Zeile1 = 4 'Zeile mit SpaltenTiteln
Set wks = ActiveSheet
With wks
'Autofilter ggf. abschalten
If .AutoFilterMode = True Then
If .FilterMode = True Then
.ShowAllData
End If
.AutoFilterMode = False
End If
LetzteZeile = .Cells(.Rows.Count, 2).End(xlUp).Row
'Datumswerte in Spalte AY
With .Range(.Cells(Zeile1, 1), .Cells(LetzteZeile, 52))
.AutoFilter Field:=51, Criteria1:=">=0"
End With
End With
End Sub
Sub Filter_AU_gt_AP()
Dim wks As Worksheet
Dim LetzteZeile As Long
Const Zeile1 = 4 'Zeile mit SpaltenTiteln
Set wks = ActiveSheet
With wks
'Autofilter ggf. abschalten
If .AutoFilterMode = True Then
If .FilterMode = True Then
.ShowAllData
End If
.AutoFilterMode = False
End If
LetzteZeile = .Cells(.Rows.Count, 2).End(xlUp).Row
'Formel für AU>AP in Spalte 52 (AZ) einfügen
With .Range(.Cells(Zeile1 + 1, 52), .Cells(LetzteZeile, 52))
.FormulaR1C1 = "=R[0]C47>R[0]C42"
End With
'AU > AP filtern in Spalte AZ
With .Range(.Cells(Zeile1, 1), .Cells(LetzteZeile, 52))
.AutoFilter Field:=52, Criteria1:=True
End With
End With
End Sub