Autofilter: Ergebnisse kopieren mit VBA
Schritt-für-Schritt-Anleitung
Um gefilterte Daten in Excel zu kopieren, kannst Du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
-
Öffne Excel und lade die Tabelle, die Du filtern möchtest.
-
Drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf „VBAProject (DeinWorkbookName)“ > Einfügen > Modul.
-
Kopiere den folgenden VBA-Code in das Modul:
Sub KopiereGefilterteDaten()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("DeinTabellenblattName") ' Passe den Namen an
ws.Range("A:C").SpecialCells(xlCellTypeVisible).Copy ' Filtere und kopiere den Bereich
End Sub
-
Schließe den VBA-Editor und kehre zu Excel zurück.
-
Führe das Makro aus: Drücke ALT + F8, wähle KopiereGefilterteDaten und klicke auf „Ausführen“.
Damit werden die gefilterten Zeilen in die Zwischenablage kopiert.
Häufige Fehler und Lösungen
-
Fehler beim Ausführen des Makros: Stelle sicher, dass der angegebene Tabellenblattname korrekt ist. Überprüfe auch, ob der Bereich, den Du filtern möchtest, tatsächlich Daten enthält.
-
Kein sichtbarer Bereich: Wenn keine Zeilen sichtbar sind, erhältst Du einen Laufzeitfehler. Achte darauf, dass Du tatsächlich einen Autofilter angewendet hast, bevor Du das Makro ausführst.
Alternative Methoden
Neben der Verwendung von VBA kannst Du auch manuell filtern und kopieren:
- Wende den Autofilter auf Deine Daten an, indem Du die Daten auswählst und auf „Daten“ > „Filter“ klickst.
- Wähle die Kriterien, um die gewünschten Zeilen anzuzeigen.
- Markiere die sichtbaren Zeilen, klicke mit der rechten Maustaste und wähle „Kopieren“.
- Füge die Daten an der gewünschten Stelle ein.
Diese Methode ist einfach und erfordert kein VBA-Wissen, eignet sich jedoch nicht für große Datenmengen.
Praktische Beispiele
Angenommen, Du hast eine Tabelle mit Verkaufsdaten und möchtest nur die Verkäufe über 1000 Euro filtern und kopieren:
- Wende den Autofilter auf die Spalte „Verkaufspreis“ an.
- Setze die Filterkriterien auf „größer als 1000“.
- Führe das oben genannte VBA-Skript aus, um die gefilterten Daten zu kopieren.
Tipps für Profis
-
Nutze Application.CutCopyMode = False am Ende deines Makros, um den Kopiermodus zu beenden und die Auswahl aufzuheben.
-
Du kannst die kopierten Daten auch direkt in eine andere Tabelle einfügen, indem Du den Zielbereich im VBA-Code anpasst:
ws.Range("E1").PasteSpecial
-
Experimentiere mit verschiedenen Filterkriterien in Deinem VBA-Code, um die Flexibilität zu erhöhen.
FAQ: Häufige Fragen
1. Kann ich mehrere Filterkriterien gleichzeitig anwenden?
Ja, Du kannst mehrere Kriterien im Autofilter anwenden, indem Du die entsprechenden Optionen in der Filterliste auswählst.
2. Funktioniert dieses Makro in Excel 365?
Ja, der Code funktioniert in Excel 365 und sollte auch in früheren Versionen ab Excel 2010 funktionieren. Achte darauf, dass der VBA-Editor aktiviert ist.