Office: alle Tabellenblätter in jeweils eine neue Datei speichern

Hallo zusammen,

ich habe eine Arbeitsmappe und möchte, dass jedes einzelne Tabellenblatt in eine neue Arbeitsmappe kopiert / übertragen wird und dann unter dem Tabellenblattnamen gespeichert wird .

Beispiel:
Arbeitsmappe = Vorgänge.xlsx
Tabellenblätter = Vorgang_001, Vorgang_002, usw.

Nun soll per VBA eine Datei erstellt werden, die das Tabellenblatt Vorgang_001 enthält und als Vorgang_001.xlsx abgespeichert wird. Das ganze soll sich für alle Tabellenblätter wieder holen.

Der Speicherpfad soll der gleiche sein, wie der der Arbeitsmappe Vorgänge.xlsx

Im Internet habe ich folgenden Code gefunden:


Code:

Leider funktioniert er nicht, weil folgende Meldung erscheint:

Laufzeitfehler 1004:
Die Blätter können von Excel nicht in die Zielarbeitsmappe eingefügt werden, da sie eine geringere Anzahl von Zeilen und Spalten enthält als die Quellarbeitsmappe

Wie kann das sein? Bzw. könnt ihr mir bitte helfen, den Code korrekt anzupassen?

:)

 

Code:

 

Danke für den Code, funktioniert leider auch noch nicht:


Laufzeitfehler 1004:
Microsoft Excel kann auf die Datei "C:\Program Files (x86\Microsoft Office\Office14\8CDF6400" nicht zugreifen

*frown.gif*

 

Der Code kommt in die Datei Vorgänge.xlsx

 

Hallo, da ist er auch drin. Im Modul 1.

Es ist so, dass der eine neue Arbeitsmappe öffnet "Mappe1" und dort ist das erste Tabellenblatt (Vorgang_001) auch enthalten.
Dann erscheint aber auch schon die VBA Fehlermeldung.

Die neue Datei ist also noch nirgends abgespeichert

 

Ist Code in den Tabellen enthalten?

EDIT:
Selbst mit Code dürfte kein Fehler auftreten.

Lad die Datei hoch.