Daten variabel filtern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

For Z = Range(erfHOME).Row To Range(erfHOME).End(xlDown).Row With Cells(Z, sp) If .Offset(0, 3).Value = .Offset(1, 3).Value Then Select Case .Value Case 30, 40, 98 Range(.Offset(0, 0), .Offset(1, 1)).Interior.ColorIndex = 6 anzahl = anzahl + 1 FilterKrit = FilterKrit & .Offset(0, 3).Value & "," End Select End If End With Next Z FilterKrit = Left(FilterKrit, Len(FilterKrit) - 1)pre> Range(erfHOME, Range(erfHOME).Offset(-1, 0)).Offset(0, 3) _ .AutoFilter Field:=1, Criteria1:=Split(filterkrit,","), Operator:=xlFilterValues Gruß Rudi

Hallo Rudi,
zwei Dinge vergaß ich, für die ich mich noch ausdrücklich bedanken möchte!
1.
Select Case .Value
Case 30, 40, 98
Ich habe (vergeblich) alles Mögliche versucht, z.B. mit "or .value = 40", die Selekt-Schleife zu verkürzen, bin aber kläglich gescheitert.
(Ävver dat dat esu einfach jeit..., hätte ich nicht gedacht.)
2.
Criteria1:=Split(filterkrit, ","
Diese Funktion kannte ich bislang überhaupt noch nicht. "F1" hat mir diesbezüglich mehr Verwirrung als Klarheit verschafft.
"Luc:-?" würde jetzt verm. sagen: "Telefonier' doch mal mit Ceres!"
Dummerweise habe ich aber die Vorwahl von Ceres neulich verbummelt.
Kannst du mir evt. hinsichtlich Split auf die Sprünge helfen?
Gruß, Rolf
P.S. Anbei als Verlustigung & Entschädigung für deine Mühen: meine Mitarbeiterbeurteilung, wie ich sie damals 19Tobak von meinem Scheffene erhalten habe.
https://www.herber.de/bbs/user/89037.xls

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread