Serienspeichern mit Makro
23.04.2007 14:43:00
Chris
habe mir folgendes Makro aus dem Netz geholt:
Sub dateizähler()
Dim datei As String, zähler As Byte
zähler = 0
datei = Dir("C:\Documents and Settings\stadter\My Documents\Rad\Datenbank\2007-E\07-E-*.xls")
Do Until datei = ""
zähler = zähler + 1
datei = Dir()
Loop
If zähler = 0 Then
ActiveWorkbook.SaveAs "C:\Documents and Settings\stadter\My Documents\Rad\Datenbank\2007-E\07- _
E-.XLS"
Else
ActiveWorkbook.SaveAs "C:\Documents and Settings\stadter\My Documents\Rad\Datenbank\2007-E\07- _
E-" & zähler & ".XLS"
End If
End Sub
das Makro macht mir jeweils eine fortlaufende Kopie meiner Datei, jetzt brauche ich aber immer 50 Kopien (fortlaufend) auf einmal und muß deshalb 50 mal Serienspeichern. Geht zwar gut, ist aber umständlich.
Wie kann man das Makro ändern, damit es mir bei einmaliger Ausführung 50 fortlaufende Kopien in den vorgegebenen Ordner speichert (Also: 07-E-1, 07-E-2,... und 07-E-50)?
Schon mal Danke für Eure Hilfe
Gruß
Chris