Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1084to1088
1084to1088
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gefilterte Tabelle exportieren

Forumthread: gefilterte Tabelle exportieren

gefilterte Tabelle exportieren
Mark
Hallo zusammen,
eigentlich einfach Sache aber finde im Forum nichts:
ich habe in meiner Tabelle mehrere Filter gesetzt und damit Daten ausgeblendet.
Nun möchte ich über ein VBA Makro die noch angezeigten Daten in eine neue Arbeitsmappe kopieren.
Am bessten mit Aufforderung nach Speicherort und Name.
Vielen Dank
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: gefilterte Tabelle exportieren
24.06.2009 18:21:31
Tino
Hallo,
versuche es mal hiermit.
Option Explicit

Sub KopiereSichtbare()
Dim AnzahlTab As Integer
Dim NeueMappe As Workbook
Dim SichtbarerBereich As Range

'Tabellennamen anpassen 
Set SichtbarerBereich = Sheets("Tabelle1").Cells.SpecialCells(xlCellTypeVisible)


AnzahlTab = Application.SheetsInNewWorkbook 'Anzahl neuer Tabellen? 

Application.SheetsInNewWorkbook = 1 'nur eine Tabelle in neuer Datei 

    Set NeueMappe = Workbooks.Add
    SichtbarerBereich.Copy NeueMappe.Sheets(1).Range("A1") 'Daten kopieren 
    Application.Dialogs(xlDialogSaveAs).Show 'speichern unter Dialog 
    NeueMappe.Close False 'Neue Datei schließen 

Application.SheetsInNewWorkbook = AnzahlTab 'Anzahl Tabellen zurücksetzen 

End Sub


Gruß Tino

Anzeige
AW: gefilterte Tabelle exportieren
24.06.2009 22:21:49
Mark
Super Vielen Dank!
Hat funktioniert!
;
Anzeige
Anzeige

Infobox / Tutorial

Gefilterte Tabelle in Excel exportieren

Schritt-für-Schritt-Anleitung

Um eine gefilterte Tabelle in Excel zu exportieren, kannst du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:

  1. Öffne deine Excel-Datei mit der gefilterten Tabelle.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  4. Kopiere den folgenden VBA-Code in das Modul:

    Option Explicit

Sub KopiereSichtbare()
   Dim AnzahlTab As Integer
   Dim NeueMappe As Workbook
   Dim SichtbarerBereich As Range

   ' Tabellennamen anpassen
   Set SichtbarerBereich = Sheets("Tabelle1").Cells.SpecialCells(xlCellTypeVisible)

   AnzahlTab = Application.SheetsInNewWorkbook ' Anzahl neuer Tabellen?

   Application.SheetsInNewWorkbook = 1 ' nur eine Tabelle in neuer Datei

   Set NeueMappe = Workbooks.Add
   SichtbarerBereich.Copy NeueMappe.Sheets(1).Range("A1") ' Daten kopieren
   Application.Dialogs(xlDialogSaveAs).Show ' speichern unter Dialog
   NeueMappe.Close False ' Neue Datei schließen

   Application.SheetsInNewWorkbook = AnzahlTab ' Anzahl Tabellen zurücksetzen
End Sub

  5. Passe den Tabellennamen "Tabelle1" im Code an den Namen deiner Tabelle an.

  6. Schließe den VBA-Editor und kehre zu Excel zurück.

  7. Drücke ALT + F8, wähle KopiereSichtbare aus und klicke auf Ausführen.

  8. Wähle den Speicherort und den Dateinamen im Dialog aus, der erscheint.

Häufige Fehler und Lösungen

  • Fehler: „Laufzeitfehler 1004: Keine sichtbaren Zellen gefunden“

    • Lösung: Stelle sicher, dass du tatsächlich gefilterte Daten hast. Wenn alle Zeilen ausgeblendet sind, wird dieser Fehler angezeigt.

  • Fehler: „Das Speichern wurde abgebrochen“

    • Lösung: Überprüfe, ob du über die erforderlichen Berechtigungen zum Speichern an dem gewählten Speicherort verfügst.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, gibt es auch manuelle Methoden zum Speichern gefilterter Daten:

  1. Kopieren und Einfügen:

    • Filtere deine Daten wie gewünscht.
    • Wähle die sichtbaren Zellen aus, kopiere sie (CTRL + C).
    • Öffne ein neues Tabellenblatt oder eine neue Arbeitsmappe und füge die Daten dort ein (CTRL + V).
    • Speichere die neue Arbeitsmappe.

  2. Speichern als CSV:

    • Filtere die Tabelle und kopiere die sichtbaren Daten in ein neues Blatt.
    • Gehe zu Datei > Speichern unter und wähle „CSV (Comma delimited)“ als Dateiformat.

Praktische Beispiele

  • Beispiel 1: Du hast eine Verkaufsübersicht gefiltert, um nur die Verkäufe eines bestimmten Produkts anzuzeigen. Mit dem VBA-Makro kannst du diese Daten einfach in eine neue Arbeitsmappe exportieren.

  • Beispiel 2: Du möchtest eine gefilterte Excel-Liste speichern, um sie später zu analysieren. Nutze die oben beschriebene Methode, um deine gefilterten Daten in eine neue Datei zu übertragen.

Tipps für Profis

  • Überlege, ob du deine gefilterte Tabelle regelmäßig exportieren musst. Wenn ja, kannst du das Makro in die Schnellzugriffsleiste integrieren, um es schneller auszuführen.
  • Speichere das VBA-Makro im persönlichen Makroarbeitsbuch, um es in verschiedenen Excel-Dateien verwenden zu können.
  • Nutze die Funktion „Daten filtern“, um gezielt die Daten auszuwählen, die du exportieren möchtest.

FAQ: Häufige Fragen

1. Wie kann ich gefilterte Daten in ein neues Tabellenblatt übertragen? Du kannst einfach die gefilterten Daten kopieren und in ein neues Blatt einfügen oder das VBA-Makro verwenden, um die Daten direkt zu exportieren.

2. Kann ich das VBA-Makro anpassen, um mehrere Tabellen gleichzeitig zu exportieren? Ja, du kannst das Makro erweitern, um mehrere Tabellen zu durchlaufen und gefilterte Daten von jeder Tabelle zu exportieren. Das erfordert jedoch mehr Programmierkenntnisse.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige