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

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

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

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

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

Hi nighty,

ja so gehts!!!!!

Vielen Dank

curfhunter