Erweiterter Filter mit mehreren Kriterien

Question

Ich habe drei Arbeitsblätter

1. ConditionSheet: Bedingungswert in Zelle E5&E7

2. SourceSheet: Vollständige Daten

3. TargetSheet: Wenn ich ein Makro ausführe, New worksheeterstellen Sie es mit diesem Namen basierend auf conditionSheetdem Wert.

Ich SourceSheetmöchte ein neues Arbeitsblatt mit bestimmten Daten erstellen.

In ConditionSheetZelle E5mit 1. Kriterium und E7mit 2. Kriterium

Auf dieser Grundlage möchte ich ein neues Arbeitsblatt mit dem Namen „TargetSheet“ erstellen.

Dabei werden nur die Daten kopiert, SourceSheetderen Wert mit dem Zellenwert in & Column Fübereinstimmt. Der Wert stimmt mit dem Wert von überein.E5ConditionalSheetColumn HSourceSheetE7ConditionalSheet

Das zweite Kriterium ist optional, deshalb habe ich IIFeine Funktion verwendet, um die Bedingung zu übergeben.

Der folgende Befehl kopiert alle Daten, unabhängig davon, sourcesheetob es sich um eine oder zwei Bedingungen handelt.

Sheets("SourceSheet").Range("A1:AB" & Worksheets("TargetSheet").Rows.Count).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=IIf(Sheets("ConditionSheet").Range("E7") = "", Sheets("ConditionSheet").Range("E5:E5"), Sheets("ConditionSheet").Range("E5:E7")), _
CopyToRange:=Sheets("TargetSheet").Range("A1"), _
Unique:=True

Ich möchte nur Daten basierend auf Kriterien kopieren.

Bitte führen Sie mich.

(Danke für den Betrachter und die antwortenden Benutzer)