Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe mir eine Datei in Excel erstellt. Ich würde diese Datei gerne vervielfältigen. Heisst im Klartext. Meine Datei heisst: dokumentation_01.01.08 Ich möchte nun die weiteren 363 Dateien erstellen, ohne jeweils zu kopieren und umzubenennen. Grüße Frank

Hallo Frank,

Kopiere das nachfolgende Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Sub Datei_kopieren()
Dim Datum As Date
Dim i As Integer
Datum = CDate("01.01.08")
For i = 1 To 365
ThisWorkbook.SaveAs "H:\Müll\Neuer Ordner\dokumentation_" & Datum & ".xls"
Datum = Datum + 1
Next
End Sub

Hier wird die aktuelle Datei 365 mal unter dem Namen des Datums aufsteigend vom 1.1.2008 abgespeichert.
Du musst in der Zeile

ThisWorkbook.SaveAs "H:\Müll\Neuer Ordner\dokumentation_" & Datum & ".xls"

noch Deinen richtigen Pfad eintragen.

Ich hoffe, Du kommst klar.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

A B S O L U T P E R F E K T ! ! !

Vielen Dank!

Grüße
Frank

Hallo Frank,

freut mich. Danke auch für die Rückmeldung.

Schönen Abend noch.

MfG,
Oliver
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

• DVD Datei, 000-Datei, 001-Datei zu einer DVD brennen
• Exceldatei vervielfältigen