Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1096to1100
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

x Blankodateien generieren und abspeichern

x Blankodateien generieren und abspeichern
Stefan
Hallo Forum,
ich habe eine Tabelle in der in A1 ein Verzeichnispfad steht und ab A2 bis... eine Liste mit Dateinamen. Jetzt möchte ich per Makro neue Blanko Arbeitsmappen erstellen und diese alle im Verzeichnis (A1,...siehe oben) abspeichern.
Für Hinweise und Tipps bin ich sehr dankbar.
Viele Grüße, Stefan

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: x Blankodateien generieren und abspeichern
01.09.2009 16:50:03
Original
Hi,
Vorausgesetzt in A1 steht der Pfad einschließlich abschließenden Backslash und die Dateinamen
in den Zellen ab A2 lückenlos einschließlich Extension(z.B. Mappe1.xls) und die Dateinamen
sind Unikate, dann so:
Sub Blanko()
Dim z As Long, lz As Long, rc As Long, Wb As Workbook
rc = Rows.Count
lz = IIf(Cells(rc, 1)  "", rc, Cells(rc, 1).End(-4162).Row)
Application.ScreenUpdating = 0
For z = 2 To lz
Set Wb = Workbooks.Add
Wb.SaveAs Tabelle1.[a1].Text & Tabelle1.Cells(z, 1).Text
Wb.Close
Set Wb = Nothing
Next
Application.ScreenUpdating = -1
End Sub
Ohne Fehlerprüfung, ob die Datei bereits im angegebenen Verzeichnis vorkommt.
mfg Kurt
Anzeige
AW: x Blankodateien generieren und abspeichern
01.09.2009 17:02:03
fcs
Hallo Stefan,
geht etwa so wobei du dich noch entscheiden muss, auf welcher Basis die neuen Blätter erstellt werden sollen.
Im allgemeinen empfhielt es sich eine Mustervorlage zu verwenden, die schon alle Formatierungen und Seiteneinrichtuns-Einstellung enthält, die für alle Dateien identisch sein sollen.
Gruß
Franz
Ein entsprechendes Makro schaut wie folgt aus.
Sub MakeNewFiles()
Dim wksListe As Worksheet, wbNeu As Workbook, Zeile As Long
Dim strPfad As String, strDatei As String
Set wksListe = ActiveSheet
With wksListe
strPfad = .Range("A1").Text
If Right(strPfad, 1)  Application.PathSeparator Then
strPfad = strPfad & Application.PathSeparator
End If
Application.ScreenUpdating = False
For Zeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
strDatei = strPfad & .Cells(Zeile, 1).Text
'neue Datei erstellen
'so wie mit den Einstellungen unter Excel für eine neue Datei
'    Set wbNeu = Workbooks.Add
'oder Datei mit einem Leertabellenblatt
Set wbNeu = Workbooks.Add(Template:=xlWBATWorksheet)
'oder auf Basis einer Mustervorlage
'    Set wbNeu = Workbooks.Add(Template:="C:\Vorlagen\Excel\MusterDatei.Dot")
With wbNeu
.SaveAs Filename:=strDatei, FileFormat:=xlWorkbook, addtomru:=False
.Close
End With
Next
Application.ScreenUpdating = True
End With
End Sub

Anzeige
AW: x Blankodateien generieren und abspeichern
01.09.2009 17:34:14
Stefan
Vielen Dank Euch Beiden! Es Klappt!

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige