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

Tabellenblätter per Makro in eigene Datei export.

Forumthread: Tabellenblätter per Makro in eigene Datei export.

Tabellenblätter per Makro in eigene Datei export.
16.10.2007 14:54:46
Marko
Hallo,
habe folgendes Problem.
Ich habe eine Excel-Datei mit sagen wir 11 Tabellenblättern.
Der Inhalt der Tabellenblätter generiert sich über die Eingabe von gewissen daten auf Tabellenblatt 1 über Hyperlinks.
Ich möchte nun ein Makro einbauen, dass es mir ermöglich, z.B. Tabellenblatt 2&3 in eine eigene Datei und mit den Werten (nicht den Verknüpfungen zu Blatt 1) zu exportieren.
Bitte um euren Support.
LG,
Marko

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Blätter Kopieren ohne Verknüpfungen
16.10.2007 16:01:22
NoNet
Hallo Marko,
mit diesem Makro kannst Du Blätter und deren Werte (ohne Verknüpfungen durch Formeln) in eine neue Mappe kopieren.
Es werden jedoch nur die Verknüpfungen eliminiert, die durch Formeln bestehen, nicht solche, die in Diagrammen, Bereichsnamen, Grafiken etc. evtl. noch vorhanden sind !
Sub KopierenOhneVerknuepfungen()
    Dim wbAlt As Workbook, wbneu As Workbook
    Dim shArr, sh
    shArr = Array("Tabelle3", "Tabelle4") 'Diese Blätter werden kopiert
    Set wbAlt = ActiveWorkbook
    Sheets(shArr).Copy
    Set wbneu = ActiveWorkbook
    For Each sh In wbneu.Sheets(shArr)
        wbAlt.Sheets(sh.Name).Cells.Copy
        wbneu.Sheets(sh.Name).[A1].PasteSpecial Paste:=xlValues
    Next
    Application.CutCopyMode = False
    wbneu.SaveAs "C:\Temp\Kopie neu.xls"
    Set wbAlt = Nothing
    Set wbneu = Nothing
End Sub

Den zu speichernden Dateinamen ("C:\Temp\Kopie neu.xls") bitte ändern oder Zeile deaktivieren !
Gruß, NoNet
Anzeige
AW: Blätter Kopieren ohne Verknüpfungen
17.10.2007 15:37:00
Marko
Gibt es auch die Möglichkeit, die gewünschten Tabellenblätter gleich als PDF zu exportieren?

AW: Tabellenblätter per Makro in eigene Datei export.
16.10.2007 16:10:41
duke7
Vielleicht so:

Sub blaetter_kopieren()
Dim tabellenname As String
tabellenname = ActiveSheet.Name 'falls die Blätter spezielle Namen haben
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveSheet.Name = tabellenname
End Sub


Grüße
Alex

Anzeige
;

Forumthreads zu verwandten Themen

VBA: Datei ohne Makros speichern
André

Moin zusammen,
gegeben ist eine Exceldatei mit Makros (.XSLM).
In dieser Datei soll nun ein Makro folgendes tun:
- die Datei speichern, wobei der User den Dateinamen und Pfad angeben darf
- die Datei darf nur in den Formaten XLSX oder XlS, in jedem Fall aber ohne Makros gespeich...
19.04.2010 13:13:27
Thread-ID: 1152560
8 Beiträge
Datei ohne VBA Code speichern
Holger,

Liebes Forum,
schon wieder ein Problem. Heute hängt es an lauter Kleinigkeiten.
Ich kopiere ein Tabellenblatt und speichere dieses als neue Arbeitsmappe ab.
Soweit, so gut klappt das.
Leider ist in dieser Arbeitsmappe der ganze VBA Code auch drin.
Wie kann ich das vermeiden,...
14.01.2011 11:31:34
Thread-ID: 1195629
5 Beiträge
Datei schließen ohne speichern?
heidi

Hallo Excel-Gemeinde,
ich lade von extern die Datei "wbkundenanalyse".
Nachdem ich sie für meine Zwecke "benutzt" habe (Formatierungen geändert, usw.), möchte ich sie wieder schließen ohne zu speichern.
Wie kann die die Abfrage ausschalten: Sollen Ihre Änderungen in ..... gespeiche...
31.01.2011 15:38:15
Thread-ID: 1198264
3 Beiträge
Anzeige
Datei ohne Makro abspeichern mit bestimmtem Namen
Simon

Hallo Forumsgemeinde,
ich brauche mal eure Hilfe.
Ich habe eine .xlsm - Datei als firmeninternes Dokument mit einem kleinen Makro drinnen. Ich möchte aus diesem Dokument mittels einer Schaltfläche eine Kundenversion erstellen.
Beim Makro selber fehlt mir jedoch das Wissen.
Die D...
26.10.2012 11:41:30
Thread-ID: 1283983
7 Beiträge
einzelne Blätter auf Knopfdruck exportieren + mail
Chris

Hallo,
ich habe es trotz Recherche nichts gefunden.
Folgender Sachverhalt ist gegeben.
Wir haben eine Excel-Tabelle mit ca. 20 Blättern.
Das erste Blatt ist eine Zusammenfassung aller Blätter.
Nun möchte ich quasie per Knopfdruck auf der ersten Seite das jedes Blatt einzeln...
15.02.2013 14:29:42
Thread-ID: 1299489
7 Beiträge
Freigegebenen Exceldatei ohne Rückfrage speichern
Mathias

Hallo,
beim automatischen Speichern einer FREIGEGEBENEN Exceldatei kommt manchmal folgende Rückfrage:
"Eine Datei mit dem Namen ... ist an diesem Speicherort bereits vorhanden. Soll sie ersetzt werden?"
Quellcodeauszug:
Application.EnableEvents = False
ThisWorkbook.Save
...
06.09.2013 10:17:19
Thread-ID: 1329751
3 Beiträge
Datei ohne lästiges Nachfragen speichern.
Wolle

Hallo zusammen,Ich habe in meinem Makro die Funktion eingebaut, Das aktive Tabellenblatt unter einembestimmten Namen zu speichern.Da die Datei nach dem ersten speichern schon vorhanden ist, werde ich immer gefragt ob ich die Datei überschreiben möchte.Kann mann diese lästige fragerei umgehen?We...
02.07.2002 14:45:05
Thread-ID: 133091
2 Beiträge
Anzeige
Datei ohne Fragen speichern
Barbara

Hallo
ich würde gerne mit einem Makro eine geöffnete Datei in einem bestimmten Ordner unter einem bestimmten Namen abspeichern, und zwar
- falls die Datei noch nicht existiert, ohne Rückfrage oder Unterbrechung,
- falls die Datei in diesem Ordner bereits vorhanden ist, mittels Di...
07.04.2016 14:51:25
Thread-ID: 1486618
5 Beiträge
Datei ohne Makros speichern
Frank

Hallo,
ich habe eine grosse Excel- Vorlage mit jeder Menge Makros drin. Bei jeder Datei werden die Makros komplett mitgesichert, so dass jede Kopie genau so gross ist. Gibt es eine Möglichkeit per VBA folgendes zu tun (die Vorlagendatei hat 2 Blätter) :- den Inhalt der 2.Tabelle (Blatt) unte...
13.11.2002 17:32:17
Thread-ID: 180886
3 Beiträge
Anzeige
Datei wieder schließen ohne zu speichern!
Chris

Guten Morgen!

Mein Problem ist folgendes! Vielleicht kann mir ja jemand helfen!

Ich starte von einer Datei aus via ComboButton ein Makro. Nachdem der Button gedrück wurde, möchte ich gerne, dass die Datei "Übersichtsblatt.xls" geschlossen wird.

Teil aus dem Makro so far:...
30.06.2003 08:32:38
Thread-ID: 275261
4 Beiträge
Datei speichern ohne Nachfrage bei vorh. Dateiname
Ron Andres
Hi,

ich möchte eine Datei Speichern und die vorhandene Datei überschreiben ohne nachzufragen.

Gruß Ron Andres
20.09.2003 13:15:09
Thread-ID: 312707
2 Beiträge
Anzeige
Datei ohne Endung nach Bearbeitung speichern
Armin Steiner
Hallo zusammen.
Ich habe folgendes Problem:

Ich öffne mit dem Excel eine Datei ohne Dateiendung. Nach einiger Bearbeitung möchte ich die Datei überspeichern (ohne Dateiendung). Dies funktioniert unter Excel XP mit dem Befehl

ActiveWindow.Close True

wunderbar. Es kommt auch...
06.11.2003 15:00:57
Thread-ID: 334306
12 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Tabellenblätter per Makro in eigene Datei exportieren

Schritt-für-Schritt-Anleitung

  1. Öffne deine Excel-Datei, aus der du die Tabellenblätter exportieren möchtest.

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

  3. Füge ein neues Modul hinzu: Klicke im Menü auf Einfügen > Modul.

  4. Kopiere und füge den folgenden Code ein:

    Sub KopierenOhneVerknuepfungen()
   Dim wbAlt As Workbook, wbneu As Workbook
   Dim shArr, sh
   shArr = Array("Tabelle2", "Tabelle3") ' Diese Blätter werden kopiert
   Set wbAlt = ActiveWorkbook
   Sheets(shArr).Copy
   Set wbneu = ActiveWorkbook
   For Each sh In wbneu.Sheets(shArr)
       wbAlt.Sheets(sh.Name).Cells.Copy
       wbneu.Sheets(sh.Name).[A1].PasteSpecial Paste:=xlValues
   Next
   Application.CutCopyMode = False
   wbneu.SaveAs "C:\Temp\Kopie_neu.xls" ' Hier Dateipfad anpassen
   Set wbAlt = Nothing
   Set wbneu = Nothing
End Sub

  5. Ändere den Dateipfad in der Zeile wbneu.SaveAs zu dem gewünschten Speicherort.

  6. Schließe den VBA-Editor und führe das Makro aus, indem du Alt + F8 drückst, das Makro auswählst und auf Ausführen klickst.

Häufige Fehler und Lösungen

  • Fehler: "Objekt nicht gefunden"

    • Stelle sicher, dass die Tabellenblätter, die du exportieren möchtest, genau so benannt sind wie im Code.

  • Fehler: "Zugriff verweigert"

    • Überprüfe, ob der angegebene Dateipfad existiert und du Schreibrechte für diesen Ordner hast.

  • Verknüpfungen werden nicht entfernt

    • Der Code entfernt nur Verknüpfungen aus Formeln. Überprüfe, ob es andere Verknüpfungen gibt, die manuell entfernt werden müssen.

Alternative Methoden

Eine andere Möglichkeit, um Excel-Blätter zu exportieren, ist die Verwendung von Export-Funktionen:

  1. Export als PDF: Du kannst die gewünschten Blätter direkt als PDF speichern, indem du die ExportAsFixedFormat-Methode verwendest.
  2. Manuelles Kopieren: Wenn du nur einige Daten benötigst, kannst du die Daten auch manuell kopieren und in eine neue Datei einfügen.

Praktische Beispiele

  • Exportiere bestimmte Blätter: Du kannst die shArr-Array-Zeile anpassen, um andere Blätter auszuwählen, z.B. shArr = Array("Tabelle1", "Tabelle4").

  • Speichern ohne Verknüpfungen: Der oben genannte Code stellt sicher, dass beim Exportieren der Excel-Datei keine Verknüpfungen zu anderen Blättern übernommen werden.

Sub ExportPDF()
    Sheets("Tabelle2").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Temp\Tabelle2.pdf"
End Sub

Tipps für Profis

  • Makros effizient nutzen: Speichere deine Makros in einer persönlichen Makroarbeitsmappe, um sie in verschiedenen Excel-Dateien nutzen zu können.
  • Fehlerbehandlung einbauen: Füge Fehlerbehandlungsroutinen in dein Makro ein, um die Benutzerfreundlichkeit zu erhöhen.
  • Verwendung von Variablen: Definiere Variablen für Dateipfade und Tabellennamen, um den Code flexibler zu gestalten.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Tabellenblätter gleichzeitig exportieren?
Du kannst das shArr-Array anpassen, um beliebig viele Tabellenblätter zu exportieren.

2. Kann ich das Makro auf Excel Online verwenden?
Makros sind in Excel Online nicht verfügbar. Du benötigst eine Desktop-Version von Excel.

3. Wie speichere ich die Datei ohne Verknüpfungen?
Verwende den bereitgestellten Code, der sicherstellt, dass nur die Werte und nicht die Verknüpfungen gespeichert werden.

Beliebteste Forumthreads (12 Monate)

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