AW: Daten variabel filtern
30.01.2014 15:06:35
Rolf.dW
Hallo Rudi,
dein Vorschlag funktioniert leider nicht; auch dann nicht wenn ich eine paar "Gänsebeine" einbaue (s.u.):
For z = Range(erfHOME).Row To Range(erfHOME).End(xlDown).Row
With Cells(z, sp)
If .Offset(0, 3).Value = .Offset(1, 3).Value And .Value = 30 _
Or .Offset(0, 3).Value = .Offset(1, 3).Value And .Value = 40 _
Or .Offset(0, 3).Value = .Offset(1, 3).Value And .Value = 98 Then
.Select
Range(Selection, Selection.Offset(1, 1)).Interior.ColorIndex = 6
anzahl = anzahl + 1
If filterkrit = "" Then
filterkrit = "Array(" & """" & .Offset(0, 3).Value & _
"""" & ")"
Else
filterkrit = Left(filterkrit, Len(filterkrit) - 1) & _
", " & """" & .Offset(0, 3).Value & """" & ")"
End If
End If
End With
Next z
Die Code-Zeile
Range(erfHOME, Range(erfHOME).Offset(-1, 0)).Offset(0, 3) _
.AutoFilter Field:=1, Criteria1:=filterkrit, Operator:=xlFilterValues
blendet immer noch sämtliche Zeilen aus.
Gruß, Rolf