Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Makro - Mehrere Files in einem zusammenfassen

Makro - Mehrere Files in einem zusammenfassen
28.02.2006 10:38:19
Stefan
Hi,
habe 10 versch. Arbeitsmappen mit jeweils einem Tabellenblatt.
Nun möchte ich mittels einem Makro versuchen, alle einzelnen Tabellenblätter in eine Arbeitsmappe zu kopieren...
Gibts hier eine Makrofunktion die ich dafür verwenden kann ?
Wäre für eine Antwort sehr dankbar
LG Stefan
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro - Mehrere Files in einem zusammenfassen
28.02.2006 13:49:34
Fred
Hallo Stefan,
mal auf der Schnelle,als Anregung.
Wichtig alle Arbeitsmappen in einen Ordner
'**********Datein der Variable NameF zuordnen****************************

Sub Test()
Set fs = Application.FileSearch
With fs
.LookIn = "C:\xxxxxxx\"  'ist Ordner mit Arbeitsmappen
.Filename = "*.xls" 'nur xls Dateien
If .Execute > 0 Then
For Z = 1 To .FoundFiles.Count              ' alle Dateien im Ordner von oben nach unten aufrufen
NameF = .FoundFiles(Z)                            'aktuelle Datei
Workbooks.Open NameF
Sheets(1).Select: Cells.Select: Selection.Copy
Workbooks.Oben("C:\yyyyyy.xls").Aktive 'ist neue Arbeitsmappe
Shees(Z)  'es müssen natürlich auch so viele Tabellen vorhanden sein.
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Windows(NameF).Activate: ActiveWorkbook.Saved = True: ActiveWorkbook.Close
Next Z
End If
End With
End Sub

Fred
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige