Excel 2007 - VBA 2 Filter im Autofilter setzen

Question

Hallo,

gleich noch eine Frage.

In einem Makro kann ich momentan nach 1 Suchkriterium (Florian) filtern. Wie muss ich aber folgendes Makro umbauen, damit ich ein 2. Suchkriterium (Daniel) dazu filtern lasse?

.Columns("A:Q").AutoFilter Field:=j
Next j
End With
With Sheets("Lagerbewegungen")
lngRow = .Cells(.Rows.Count, 7).End(xlUp).Row
.Range(.Cells(7, 14), .Cells(lngRow, 14)).FormulaR1C1 = "=IF(RC[-13]="""",RC[-7],RC[-13])"
.Range(.Cells(7, 1), .Cells(lngRow, 14)).Sort _
Key1:=.Cells(7, 14), Order1:=xlAscending, DataOption1:=xlSortNormal, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
.Range(.Cells(7, 14), .Cells(lngRow, 14)).ClearContents
.Range(.Cells(6, 1), .Cells(lngRow, 13)).AutoFilter Field:=13, Operator:=xlFilterValues, Criteria1:="Florian"
End With


Danke schon mal für eure Hilfe.

Gruß Florian

Answer 1

Hallo Florian,

ich würde Dir raten, in Zukunft nicht nur Codeschnippsel anzubieten.

Besser wäre es, wenn Du auch die zugehörigen Daten mit lieferst, um eine Makroänderung auch testen zu können.

Gruß
Rainer

Answer 2

Hallo Florian,
verschiedene Kriterien für eine Spalte setzen:

Dim Filter() As Variant
Filter = Array("Florian", "Daniel")
..., Criteria1:=Filter

Gruß
Rudi

Answer 3

Hallo Rainer,

ich werde deinen Ratschlag zukünftig gerne befolgen.

@Rudi: Danke für die aufgezeigte Möglichkeit.

Gruß Florian