Wie kopiere ich Daten mit Advanced Filter in Excel in ein anderes Arbeitsblatt?
Normalerweise können wir das schnell anwenden Erweiterter Filter Funktion zum Extrahieren von Daten aus den Rohdaten im selben Arbeitsblatt. Wenn Sie jedoch versuchen, das gefilterte Ergebnis in ein anderes Arbeitsblatt zu kopieren, wird manchmal die folgende Warnmeldung angezeigt. Wie können Sie in diesem Fall mit dieser Aufgabe in Excel umgehen?
Kopieren Sie Daten mit Advanced Filter mithilfe von VBA-Code in ein anderes Arbeitsblatt
Kopieren Sie Daten mit dem erweiterten Filter mithilfe der erweiterten Filterfunktion in ein anderes Arbeitsblatt
Hier ist eine einfache Problemumgehung, um diesen Job zu lösen. Gehen Sie wie folgt vor:
1. Aktivieren Sie das Arbeitsblatt, in das Sie das gefilterte Ergebnis kopieren möchten, mithilfe der Funktion Erweiterter Filter.
2. Dann klick Datum > Fortgeschrittener, siehe Screenshot:
3. In dem Erweiterter Filter Dialogfeld auswählen Kopieren Sie an einen anderen Ort von dem Action Abschnitt, und klicken Sie dann 
Klicken Sie auf die Schaltfläche, um den Datenbereich auszuwählen, den Sie in einem anderen Blatt neben dem filtern möchten ListenbereichKlicken Sie weiter Knopf neben dem Kriterienbereich Informationen zum Auswählen der Kriterien aus einem anderen Blatt finden Sie im Screenshot:
4. Dann klick Knopf neben dem Kopieren nach Feld, um eine Zelle auszuwählen, in der Sie das gefilterte Ergebnis aus dem aktiven Blatt ausgeben möchten, und klicken Sie dann auf OK Klicken Sie auf die Schaltfläche. Das gefilterte Ergebnis wurde basierend auf Ihrem Originaldatenblatt in ein anderes Blatt extrahiert.
Kopieren Sie Daten mit Advanced Filter mithilfe von VBA-Code in ein anderes Arbeitsblatt
Wenn Sie mit VBA-Code vertraut sind, können Sie diesen Job mit dem folgenden VBA-Code beenden.
1. Aktivieren Sie das Arbeitsblatt, das Sie filtern möchten, und kopieren Sie das Ergebnis auf ein anderes Blatt.
2. Halten Sie die Taste gedrückt ALT + F11 Tasten in Excel, und es öffnet sich die Microsoft Visual Basic für Applikationen Fenster.
3. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Kopieren Sie Daten mit Advanced Filter in ein anderes Arbeitsblatt:
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. Und dann drücken F5 Drücken Sie die Taste, um diesen Code auszuführen. Es erscheint ein Eingabeaufforderungsfeld, in dem Sie den Datenbereich auswählen können, den Sie filtern möchten, siehe Screenshot:
5. Dann klick OK, und es erscheint ein weiteres Dialogfeld, das Sie daran erinnert, den Kriterienbereich auszuwählen, nach dem Sie filtern möchten, siehe Screenshot:
6. Klicken Sie weiter OKWählen Sie im angezeigten Dialogfeld bitte eine Zelle aus einem anderen neuen Arbeitsblatt aus, in der Sie das Filterergebnis ausgeben möchten, siehe Screenshot:
7. Endlich, klick OK Wenn Sie auf die Schaltfläche klicken, werden die gefilterten Daten je nach Bedarf in ein anderes angegebenes Blatt ausgegeben.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
