Herbers Excel-Forum - das Archiv

1 Vorlage in mehrere Dateien einfügen

Bild

Betrifft: 1 Vorlage in mehrere Dateien einfügen
von: Sascha C

Geschrieben am: 15.12.2006 06:21:03
Ich möchte eine nachträglich erstellte Vorlage (Arbeitsmappe) in mehrere
XLS.-Dateien gleichzeitig einfügen.
Da es sich um über 900 einzelne Dateien handelt, habe ich keine Lust die neu
erstellte Vorlage einzeln in jede Datei zu kopieren.
Leider bin ich nicht sehr versiert im Umgang mit Excel. Gibt es eine Möglichkeit das Arbeitsblatt in einem Arbeitsgang automatisch in die
jeweiligen Excel-Datein zu kopieren?
Über Hilfe würde ich mich sehr freuen.
Bild

Betrifft: AW: 1 Vorlage in mehrere Dateien einfügen
von: Heiko S.

Geschrieben am: 15.12.2006 07:39:35
Moin Sascha,
zb. so:
Alle Dateien in ein Verzeichnis kopieren, den Pfad dahin im Makro anpassen, Aus dem Blatt das du überall einfügen willst das Makro starten, fertig.
Sub NeuRein()
Dim strPfad As String
Dim lngI As Long
Dim wksSource As Worksheet
' Pfad natürlich anpassen !!!
strPfad = "H:\EXCEL\Muell\Test"
Set wksSource = ActiveSheet
With Application.FileSearch
.NewSearch
.LookIn = strPfad
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
Application.StatusBar = " Makro NeuRein läuft !"
Application.ScreenUpdating = False
For lngI = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(lngI)
wksSource.Copy After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)
ActiveWorkbook.Save
ActiveWorkbook.Close
Next lngI
Application.ScreenUpdating = True
Application.StatusBar = False
End If
End With
MsgBox "Fertig !", vbInformation
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Bild

Betrifft: AW: 1 Vorlage in mehrere Dateien einfügen
von: Sascha C
Geschrieben am: 15.12.2006 08:42:04
Das Makro funktioniert einwandfrei. Habe mir die Mühe gemacht den Pfad
immer neu abzuändern. So kann ich die einzelnen Order hintereinander
aktualisieren.
Vielen Dank für die raschen Antworten und Hut ab für das Makro.
LG
Sascha
Bild

Betrifft: AW: 1 Vorlage in mehrere Dateien einfügen
von: Heiko S.
Geschrieben am: 15.12.2006 08:47:44
Hallo Sascha,
wenn du diese Zeile
.SearchSubFolders = False
so änderst
.SearchSubFolders = True
dann klappt es auch automatisch mit den Unterverzeichnissen.
Gruß Heiko
PS: Rückmeldung wäre nett !
Bild

Betrifft: AW: 1 Vorlage in mehrere Dateien einfügen
von: Sascha C
Geschrieben am: 15.12.2006 09:30:09
Funktioniert einwandfrei.
Vielen Dank!!!
LG
Sascha
Bild

Betrifft: AW: 1 Vorlage in mehrere Dateien einfügen
von: Jürgen

Geschrieben am: 15.12.2006 07:39:36
Hallo Sascha,
liegen die ganzen Dateien in einem Verzeichnis?
An welcher Position sollen die neuen Tabellen in die Dateien?
Ich nehme an, dass es sich bei der nachträglich erstellten Vorlage um ein Tabellenblatt aus einer Arbeitsmappe handelt.
Sollte aber ohne Probleme möglich sein.
Gruß
Jürgen
Bild

Betrifft: AW: 1 Vorlage in mehrere Dateien einfügen
von: Sascha C

Geschrieben am: 15.12.2006 08:26:20
Das Tabellenblatt soll immer zu Beginn der Arbeitsmappe eingefügt werden.
Die Dateien sind in 52 Unterverzeichnissen sortiert.
Folgender Verzeichnisbaum ist gegeben:
-e:Statistik
-e:excel-tabellen
-e:52 x das jeweilige Land
(hoffe das reicht als Erklärung).
Die Dateien kann ich aber auch in ein Verzeichnis packen
und nachher wieder den einzelnen Ordner zuweisen. Bei über 900 Dateien ist
das leider wieder mit Arbeit verbunden. Das Makro teste ich gleich mal.
Danke für die raschen Antworten.
 Bild
Excel-Beispiele zum Thema "1 Vorlage in mehrere Dateien einfügen"
Formatvorlagen löschen Vorlage auswählen und Arbeitsmappe öffnen
Vorlagendialog beim Öffnen einer Arbeitsmappe aufrufen Suche über mehrere Tabellen
Mehrere Schaltflächen für ein Makro Suchbegriff über mehrere Tabellenblätter suchen.
Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche Druck aus mehreren Tabellenblättern auf eine Druckseite
AutoFilter über mehrere Arbeitsblätter setzen Daten von mehreren Blättern auf ein Druckblatt