ich suche ein Excel-Makro, das verschiedene Blätter einer Tabelle in neue Dateien speichert, wobei der Name der neuen Datei der Name des Tabellenblattes sein soll. Zusätzlich soll aus der Ursprungstabelle ein Tabellenblatt in jede neue Datei dupliziert werden.
Also ungefähr so:
Ausgangsdatei irgendwas.xls mit den Blättern „Gesamt, DE, AT, CH“.
Zieldateien: DE.xls mit den Blättern „Gesamt“ und „DE“, AT.xls mit den Blättern „Gesamt“ und „AT“, CH.xls mit den Blättern „Gesamt“ und „CH“.
Leider finde ich trotz stundenlangem Suchen nicht mal einen Ansatz, mit dem ich was basteln könnte…
Datei öffnen, dann drei Mal unter den gewünschten Namen abspeichern (Objekt Workbook Methode SaveAs), danach die neuen Dateien öffnen und jeweils 2 der Blätter (Worksheets(„DE“).Delete) löschen.
MfG Georg V.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
ich suche ein Excel-Makro, das verschiedene Blätter einer
Tabelle in neue Dateien speichert, wobei der Name der neuen
Datei der Name des Tabellenblattes sein soll. Zusätzlich soll
aus der Ursprungstabelle ein Tabellenblatt in jede neue Datei
dupliziert werden.
Ausgangsdatei irgendwas.xls mit den Blättern „Gesamt, DE, AT,
CH“.
Zieldateien: DE.xls mit den Blättern „Gesamt“ und „DE“, AT.xls
mit den Blättern „Gesamt“ und „AT“, CH.xls mit den Blättern
„Gesamt“ und „CH“.
Hi Martin,
Option Explicit
'
Sub tt()
Dim Blatt As Variant, B As Integer
Blatt = Array("Gesamt", "DE", "AT", "CH")
For B = 1 To 3
Worksheets(Array(Blatt(0), Blatt(B))).Copy
ActiveWorkbook.SaveAs Blatt(B) & ".xls"
ActiveWorkbook.Close
Next B
End Sub