Excel - aus Mappen einzelne xls machen

Computer: Software & Programmierung Office Software
1

Hallo,

ist es möglich, aus einer Exceldatei, die aus 3 Mappen besteht, 3 Excel-Dateien zu machen, die jeweils nur eine Mappe haben. Die Namen der xls-Dateien müssten austomatisch den der Mappen vorher zugeordnet werden.

…und wenn ja, wie würde das gehen?

Dank & Gruß
René

2

ist es möglich, aus einer Exceldatei, die aus 3 Mappen
besteht, 3 Excel-Dateien zu machen, die jeweils nur eine Mappe
haben. Die Namen der xls-Dateien müssten austomatisch den der
Mappen vorher zugeordnet werden.

Hallo René,

machs einfach und zeichne dabei ein Makro auf.
Dieser Code ist dann die basis.

Gruß
Reinhard

3

Hi,

ich würde so vorgehen:

  • Blatt verschieben/kopieren
  • zu neuer Arbeitsmappe
  • die enthält stanradmäßig bereits ein Tabellenblatt namens „Tabelle1“
  • dieses löschen
  • Mappe speichern unter dem Namen des zugefügten Blattes (Worksheets(1)).
    Dieses Prozedere zeichnest Du mit dem Makrorekorder auf. Dan packst Du den Code in die Quellmappe und umschließt ihn mit einer For-Schleife: For i = 1 to ActiveWorkbook.Sheets.Count, damit Du a) beliebig große Arbeitsmappen verarbeiten kannst und b) die Wahl hast, zur Sicherheit die Arbeitsblätter zu kopieren,nicht zu verschieben, so daß bei einem Fehler keine Daten verloren gehen.

HTH.

Markus

4

Hallo markus,

  • Blatt verschieben/kopieren
  • zu neuer Arbeitsmappe

korrekt, das hatte ich im Blick als ich sagte der Anfrager soll das einfach mal tun und aufzeichnen dabei.

  • die enthält stanradmäßig bereits ein Tabellenblatt namens
    „Tabelle1“

nein. Das Blatt heißt so wie das Blatt was du verschiebst.

  • dieses löschen

nicht nötig, warum auch, du hast ja das Blatt grad eingefügt…

  • Mappe speichern unter dem Namen des zugefügten Blattes
    (Worksheets(1)).

Das ist was anderes mit dem Mappennamen, durch das Blattkopieren heißt die mappe meist mappeX.

Dieses Prozedere zeichnest Du mit dem Makrorekorder auf. Dan
packst Du den Code in die Quellmappe und umschließt ihn mit
einer For-Schleife: For i = 1 to ActiveWorkbook.Sheets.Count,
damit Du a) beliebig große Arbeitsmappen verarbeiten kannst
und

Okay, hab mich wohl falsch ausgedrückt. Der Anfrager sollte bitte seinen Code hier zeigen dann kann man passgenau die For-Schleife usw. also auch die namensvergabe regeln/coden.

b) die Wahl hast, zur Sicherheit die Arbeitsblätter zu
kopieren,nicht zu verschieben, so daß bei einem Fehler keine
Daten verloren gehen.

Datenschutz ist immer wichtig also beim Verschieben das Häkchen bei „Kopie erstellen“ nicht vergessen.

Aus dem Grunde wird z.B. wenn man 20 dateien von Ordner A nach Ordner B verschieben will, zumindest von mir nicht, Move gewählt.
Vielleicht ist in dem Moment Stromausfall und nach neubooten ist eine Datei defekt dadurch.
Also erst alle 20 dateien per Copy von A nach B kopieren. Dann wenn das geklappt hat, die alten 20 dateien löschen.

Gruß
Reinhard

5

Hallo,
automatisch wegen nur drei Tabellen?
Manuell, wuerde ich die Datei 3x kopieren, und in jeder kopierten Datei zwei Blaetter loeschen, dann umbenennen. Ja ich wuerde 3x kopieren, wenn was schief geht, gibt es das Original noch.
Gruss Helmut

6

es sind ca. 150:smile:

wollte nur als beispiel 3 nennen…

7

Hallo Reinhard,

  • die enthält stanradmäßig bereits ein Tabellenblatt namens „Tabelle1“

nein. Das Blatt heißt so wie das Blatt was du verschiebst.

hast vollkommen recht.

  • dieses löschen

nicht nötig …

logisch

Hatte ich nicht getestet und falsch in Erinnerung. Sorry

Gruß

Markus

8

Hatte ich nicht getestet und falsch in Erinnerung. Sorry

Hallo Markus,

*sehr grins* was meinste was ich getan habe bevor ich das „nein“ schrieb? Ich habe getestet :smile:)

Ich kann mir doch auch nicht alles merken was ich mal sah usw., alles im grünen Bereich *find*

Gruß
Reinhard