Makro aus Archiv modifizieren
11.03.2006 04:33:01
speedyfree
ich hab nach langem Suchen im Netz, endlich in eurem Archiv "https://www.herber.de/forum/archiv/728to732/t731397.htm" vom User "ransi" ein Makro gefunden, welches eine meiner Probleme, zum teil löst. Es tut Blaetter aus mehreren Mappen in eine neue Mappe kopieren.
Da ich mich aber mit VBA nicht auskenne, möchte ich euch Bitten, mir den Code etwas zu modifizieren.
Vorraussetzung ist:
Ich habe mehrere Mappen in einem Verzeichniss, welches mit mehreren unterverzeichnissen unterteilt ist.
Also Hauptverzeichniss = "Stundenzettel"
Unterverzeichnisse = "Jan 2006; Feb 2006 usw"
Aufgabenstellung:
Nun möchte ich gerne alle Daten aus jeweils dem ersten Tabellenblatt aus dem Hauptverzeichniss inklusive der Unterverzeichnisse ausgelesen, und in eine neue Mappe eingetragen wird.
Anschließend, sollen aus bestimmten Zellen eines jeden Blattes, bestimmte Daten in ein Tabellenblatt übertragen weden.
Hoffe sehr mich verständlich ausgedrückt zu haben. Falls nicht, bitte Fragen. Ich Antworte so gut ich kann.
Vielen Dank schon mal im vorraus für eure Mühen. Würde mich echt tierisch Freuen.
Ach ja, hier doch der Code aus dem Archiv welches von ransi erstellt wurde.
[code]
Option Explicit
Public
Sub getestet()
Dim neu As Workbook
Dim blatt As Worksheet
Dim merkevent As Boolean
Dim merkalarm As Boolean
Dim merkupdate As Boolean
Dim fs As FileSearch
Dim gefunden
With Application
merkevent = .EnableEvents
merkalarm = .DisplayAlerts
merkupdate = .ScreenUpdating
End With
Set neu = Workbooks.Add
Set fs = Application.FileSearch
With fs
.NewSearch
.Filename = "*.xls"
.LookIn = "C:\Test"
.Execute
merkevent = False
merkalarm = False
merkupdate = False
For Each gefunden In .FoundFiles
Workbooks.Open (gefunden)
For Each blatt In Workbooks(Dir(gefunden)).Sheets
blatt.Copy after:=neu.Sheets(neu.Sheets.Count)
Next blatt
Workbooks(Dir(gefunden)).Close False
Next gefunden
End With
With Application
.EnableEvents = merkevent
.DisplayAlerts = merkalarm
.ScreenUpdating = merkupdate
End With
End Sub
[/code]