Unterordner bei Makro berücksichtigen
26.10.2007 15:22:00
Andre
ich habe das Problem, dass ich einen Makro brauche, der immer die gleiche Änderung in einem Sheet ausführt. Das Sheet hat immer den gleichen Namen, beinhaltet aber andere Daten und liegt jeweils in einem unterschiedlich benannten Ordner. Bsp.: Haus1/workbook1.xls dann Haus2/workbook1.xls etc.
Ich muss dort jeweils Formate ändern oder in jeweils der gleichen Zelle eine Formel einfügen und möchte eben vermeiden, alle Sheets einzeln aufmachen zu müssen.
In einem anderen Thread hat jemand mal ein ähnliches Problem beschrieben und auch schon jemand eine Lösung angeboten. Leider kann ich das Script nicht vervollständigen.
Vielen Dank für eure Hilfe.
Andre
Hallo Zusammen,
da ich in der letzten Zeit tolle Unterstützung erfahren habe, wäre ich super-dankbar, wenn sich noch einmal jemand einem neuen Problem von mir annehmen würde ;-)
Das u.g. Skript öffnet, bearbeitet und schließt in einem bestimmten Ordner alle Excel-Dateien und verändert einen gewünschten String; ich hätte jedoch gerne, dass neben dem Ordner auch ALLE Unterordner nach Excel-Dateien durchsucht werden; das würde meine Sache sehr erleichtern.
Würde mich freuen, wenn es Vorschläge gäbe...
Herzlichen Dank,
Grüße,
Alexander
Sub GRAN_TOURISMO()
Dim f$, p$, i&
p = "C:\Ordner\"
f = Dir(p & "*.xls")
i = 1
Do While f ""
Workbooks.Open Filename:=p & f
For Each w In Workbooks
If w.Name ThisWorkbook.Name Then
For Each ws In Worksheets
ws.Columns().Replace _
What:="Flughafen", Replacement:="airport", _
SearchOrder:=xlByColumns, MatchCase:=False
Next ws
w.Close savechanges:=True
End If
Next w
i = i + 1: f = Dir
Loop
End Sub
Hio...
Nimm das Application Filesearch Objekt, da kannst du Seach Subfolders = True setzen...
Beispiel hier
***********************************************************************
c0bRa verweist auf ein anderes Forum, in dem die Lösung an einem anderen Beispiel gezeigt wird. Leider reichen meine VBA Kenntnisse nicht aus, dies miteinander zu kombinieren.
Gruß
Andre