Wie kopiert man Daten mit dem erweiterten Filter in ein anderes Arbeitsblatt in Excel?

Die Funktion „Erweiterter Filter“ in Excel ermöglicht es Ihnen, Daten aus einem Datensatz zu extrahieren und zu filtern. Während dies innerhalb desselben Arbeitsblatts reibungslos funktioniert, kann es vorkommen, dass Sie eine Warnmeldung erhalten, wenn Sie versuchen, die gefilterten Ergebnisse in ein anderes Arbeitsblatt zu kopieren. In dieser Anleitung zeigen wir Ihnen Schritt für Schritt, wie Sie gefilterte Daten mithilfe des erweiterten Filters und VBA-Codes in ein anderes Arbeitsblatt kopieren.

Daten mit dem erweiterten Filter in ein anderes Arbeitsblatt kopieren, indem Sie die Funktion „Erweiterter Filter“ verwenden

Daten mit dem erweiterten Filter in ein anderes Arbeitsblatt kopieren, indem Sie VBA-Code verwenden

Daten mit dem erweiterten Filter in ein anderes Arbeitsblatt kopieren, indem Sie die Funktion „Erweiterter Filter“ verwenden

Hier ist eine einfache Lösung für dieses Problem; bitte gehen Sie wie folgt vor:

1. Aktivieren Sie das Arbeitsblatt, in das Sie das gefilterte Ergebnis mit der Funktion „Erweiterter Filter“ kopieren möchten.

2. Klicken Sie dann auf Daten > Erweitert, siehe Screenshot:

3. Im Dialogfeld „Erweiterter Filter“ wählen Sie In andere Position kopieren aus dem Aktion Abschnitt, und klicken Sie dann auf die Schaltfläche, um den Datenbereich auszuwählen, den Sie in einem anderen Blatt filtern möchten, neben dem Listenbereich, klicken Sie weiter auf die Schaltfläche neben dem Kriterienbereich um die Kriterien aus einem anderen Blatt auszuwählen, siehe Screenshot:

4. Klicken Sie dann auf die Schaltfläche neben dem Kopieren nach Feld, um eine Zelle auszuwählen, in die Sie das gefilterte Ergebnis aus dem aktiven Arbeitsblatt ausgeben möchten, und klicken Sie dann auf OK Schaltfläche, das gefilterte Ergebnis wurde basierend auf Ihrem ursprünglichen Datenblatt in ein anderes Blatt extrahiert.

Daten mit dem erweiterten Filter in ein anderes Arbeitsblatt kopieren, indem Sie VBA-Code verwenden

Wenn Sie mit VBA vertraut sind, können Sie diese Aufgabe mit dem folgenden VBA-Code ausführen.

1. Aktivieren Sie das Arbeitsblatt, das Sie filtern und dessen Ergebnis Sie in ein anderes Blatt kopieren möchten.

2. Halten Sie in Excel die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

3. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Kopieren von Daten in ein anderes Arbeitsblatt mit erweitertem Filter:

Sub Advancedfiltertoanothersheet()
'Updateby Extendoffice
    Dim xStr As String
    Dim xAddress As String
    Dim xRg As Range
    Dim xCRg As Range
    Dim xSRg As Range
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the filter range:", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xCRg = Application.InputBox("Please select the criteria range:", "Kutools for Excel", "", , , , , 8)
    If xCRg Is Nothing Then Exit Sub
    Set xSRg = Application.InputBox("Please select the output range:", "Kutools for Excel", "", , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xRg.AdvancedFilter xlFilterCopy, xCRg, xSRg, False
    xSRg.Worksheet.Activate
    xSRg.Worksheet.Columns.AutoFit
End Sub

4. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und ein Eingabefenster erscheint, in dem Sie den Datenbereich auswählen sollen, den Sie filtern möchten, siehe Screenshot:

5. Klicken Sie auf OK, und ein weiteres Dialogfeld wird angezeigt, das Sie auffordert, den Kriterienbereich für die Filterung auszuwählen, wie im Screenshot gezeigt:

6. Klicken Sie weiter auf OK, im erscheinenden Dialogfeld wählen Sie bitte eine Zelle aus einem neuen Arbeitsblatt aus, in die Sie das Filterergebnis ausgeben möchten, siehe Screenshot:

7. Klicken Sie abschließend auf die Schaltfläche OK, die gefilterten Daten wurden in ein anderes festgelegtes Blatt ausgegeben, wie Sie es benötigen.