mehrere neue Dateien aus einem Muster erzeugen

Question

Hallo,
ich möchte aus einer neutralen Mappe meine Mustermappe öffnen und diese mit vordefinierten Namen, die in der neutralen Mappe stehen speichern. So sollen dann 32 neue Mappen entstehen, deren Inhalt die Mustermappe ist (mit Formeln).

Ich hoffe, ich habe mein Problem ordentlich dargelegt. Bin absoluter Neuling.

Answer 1

Hallo,

erstelle Dir eine Mustermappe mit allen Details die Dir wichtig sind und speichere diese als *.xlt ab.

Nun kannst Du diese Mappe beliebig oft öffnen und bearbeiten.
Wichtig ist, dass Du die bearbeitete Mappe dann unter *.xls abspeicherst, sodass die Mustervorlage *. xlt im ursprünglichen Zustand erhalten bleibt.

Gruß
Rainer

Answer 2

Hallo Rainer,

danke für deine Antwort. Du hast natürlich vollkommen recht.
Ich war zu undeutlich. Ich möchte das nicht von Hand machen, weil ich dann jeden Monat 32 neue Dokumente anlegen muss.
Ich wollte das in einem Makro unterbringen.

Dieses sollte mir die Musterdatei öffnen und dann unter definierten Namen, die in der 1. Spalte der "neutralen" Mappe stehen als Mappen abspeichern.

Ich habe aber von Makro keine Ahnung!!

Gruß
curfhunter

Answer 3

hi all ^^

2 variationen

gruss nighty

einzufuegen
alt+f11/projektexplorer/AllgemeinesModul

Sub MusterSave0()
Dim WksZelle As Range
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\mo\Anwendungsdaten\Microsoft\Vorlagen\Mappe1.xlt", Editable:=True
For Each WksZelle In Range("A1:A3")
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & WksZelle & ".xls", FileFormat:=xlNormal
Next WksZelle
Workbooks("Mappe1.xlt").Close
End Sub

Sub MusterSave1()
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\mo\Anwendungsdaten\Microsoft\Vorlagen\Mappe1.xlt", Editable:=True
For Each WksZelle In ThisWorkbook.Sheets(1).Range("A1:A3")
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & WksZelle & ".xls", FileFormat:=xlNormal
Next WksZelle
Workbooks("Mappe1.xlt").Close
End Sub

Answer 4

Hi nighty,

dass er die neue Datei aus dem Muster erstellt habe ich kapiert. Muss ich meine Daten eben da anlegen.
Er macht aber so nur 1 neue Datei aus den Zellen A1-A3.
Ich wollte je 1 neue Datei aus A1 und A2 und A3 usw. Geht das Auch?

Gruß
curfhunter

Answer 5

hi curfhunter ^^

zwei weitere beispiele fuer die erfassung der letzten genutzten zeile in spalte a,zur zeit a1 beginnend,eventuell anpassen

gruss nighty

Sub MusterSave0()
Dim WksZelle As Range
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\mo\Anwendungsdaten\Microsoft\Vorlagen\Mappe1.xlt", Editable:=True
For Each WksZelle In Range("A1:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row)
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & WksZelle & ".xls", FileFormat:=xlNormal
Next WksZelle
Workbooks("Mappe1.xlt").Close
End Sub

Sub MusterSave1()
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\mo\Anwendungsdaten\Microsoft\Vorlagen\Mappe1.xlt", Editable:=True
For Each WksZelle In ThisWorkbook.Sheets(1).Range("A1:A" & ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row)
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & WksZelle & ".xls", FileFormat:=xlNormal
Next WksZelle
Workbooks("Mappe1.xlt").Close
End Sub

Answer 6

Hi nighty,

ja so gehts!!!!!

Vielen Dank

curfhunter