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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen