Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Einzelne Seiten speichern per VBA

Forumthread: Einzelne Seiten speichern per VBA

Einzelne Seiten speichern per VBA
09.10.2002 19:23:22
Bernd
Hi allerseits,

ich möchte mit VBA aus einer Arbeitsmappe heraus verschiedene Tabellenblätter jeweils in eine eigene Datei speichern, ohne dass die aktuelle Tabelle danach den Namen der neuen Tabellen trägt.

Schon mal Danke im Vorraus

greetz Bernd

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Einzelne Seiten speichern per VBA
09.10.2002 19:27:56
Hajo_Zi
Hallo Bernd

321. Einzelnes Register speichern
Sub Blattspeichern()
ActiveSheet.Copy
ActiveWorkbook.SaveAs FileName:="D:\Eigene Dateien\Hajo\" & ActiveSheet.Name & ".xls"
End Sub
Ansatz von guenter


Gruß Hajo

Re: Einzelne Seiten speichern per VBA
10.10.2002 08:33:35
Bernd
ok erstmal danke,

jetzt bleibt nur die frage wie kann ich einzelne blätter nacheinander als aktiv makieren, denn ich möchte immer die gleichen blätter speichern

greetz Bernd

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Einzelne Excel-Seiten per VBA speichern


Schritt-für-Schritt-Anleitung

Um einzelne Excel-Seiten zu speichern, kannst du VBA verwenden. Folge diesen Schritten:

  1. Öffne deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Füge ein neues Modul hinzu: Rechtsklicke auf "VBAProject (deinDateiname)", wähle "Einfügen" und dann "Modul".

  3. Kopiere den folgenden Code und füge ihn in das Modul ein:

    Sub Blattspeichern()
       Dim ws As Worksheet
       Dim dateipfad As String
       dateipfad = "D:\Eigene Dateien\Hajo\" 'Passe den Pfad nach Bedarf an
    
       For Each ws In ThisWorkbook.Worksheets
           ws.Copy
           ActiveWorkbook.SaveAs FileName:=dateipfad & ws.Name & ".xls"
           ActiveWorkbook.Close
       Next ws
    End Sub
  4. Ändere den dateipfad in den Pfad, wo du die Dateien speichern möchtest.

  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Drücke ALT + F8, wähle Blattspeichern und klicke auf "Ausführen".

Dieser Code speichert jede einzelne Excel-Seite in einer neuen Datei.


Häufige Fehler und Lösungen

  • Problem: "Das Verzeichnis kann nicht gefunden werden."

    • Lösung: Überprüfe den angegebenen dateipfad im Code. Stelle sicher, dass der Ordner existiert.
  • Problem: "Dateiname ist ungültig."

    • Lösung: Achte darauf, dass die Tabellennamen keine ungültigen Zeichen (wie /, \, :, *) enthalten.

Alternative Methoden

Wenn du keine VBA-Lösungen verwenden möchtest, kannst du auch manuell einzelne Seiten speichern:

  1. Klicke mit der rechten Maustaste auf das Tabellenblatt, das du speichern möchtest.
  2. Wähle "Verschieben oder Kopieren".
  3. Wähle "Neue Arbeitsmappe" und klicke auf "OK".
  4. Speichere die neue Arbeitsmappe unter "Datei" > "Speichern unter".

Diese Methode ist zwar zeitaufwendig, bietet aber eine einfache Möglichkeit, einzelne Seiten zu speichern, ohne VBA zu verwenden.


Praktische Beispiele

Nehmen wir an, du hast ein Arbeitsblatt mit den Namen „Umsatz“, „Kosten“ und „Gewinn“. Mit dem oben genannten VBA-Code werden für jedes dieser Blätter separate Dateien erstellt:

  • Umsatz.xls
  • Kosten.xls
  • Gewinn.xls

Das macht es einfach, deine Daten zu organisieren und die einzelnen Excel-Seiten zu speichern.


Tipps für Profis

  • Um die Effizienz zu steigern, kannst du den Code erweitern, um nur bestimmte Blätter zu speichern, indem du Bedingungen einfügst.
  • Experimentiere mit Dateiformaten: Anstatt .xls zu verwenden, kannst du auch .xlsx oder .csv verwenden, je nach Anforderung.

FAQ: Häufige Fragen

1. Kann ich auch einzelne Seiten aus Word speichern? Ja, allerdings ist der Prozess anders. Du musst die Seite manuell kopieren und in ein neues Dokument einfügen.

2. Wie kann ich überprüfen, ob die Dateien korrekt gespeichert wurden? Nach dem Ausführen des VBA-Codes kannst du einfach den angegebenen Ordner öffnen und die neuen Dateien überprüfen.

3. Funktioniert dieser VBA-Code in allen Excel-Versionen? Ja, der VBA-Code ist kompatibel mit Excel 2007 und späteren Versionen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige