Makro in mehreren gleichartigen Dateien ausführen

Guten Abend
Ich habe in einem Ordner verschiedene Dateien, zum Beispiel A 2003.xls, B 2003.xls und C 2003.xls ... (nicht immer gleich viele Dateien)
In einem anderen File, das im gleichen Ordner abgelegt ist, sind die Namen dieser Dateien in der Spalte A eingetragen:
A1: A 2003.xls
A2: B 2003.xls
A3: C 2003.xls
A4: ...
Nun möchte ich das gleiche Makro in allen Dateien ablaufen lassen, indem ich der Reihe nach diese Dateien (die möglicherweise bereits offen sind oder nicht) aktiviere und beispielsweise jeweils in der ersten Tabelle, die "Daten" heisst, einen bestimmten Wert in Zelle A1 eintragen. Wenn ich dies bewerkstelligen könnte, könnte ich dann mein wirkliches Problem auch lösen.
Kann mir jemand helfen?
Danke, Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro() Dim pfad As String, fn As String Dim Datei As Range Dim geöffnet As Boolean pfad = ThisWorkbook.Path Set Datei = ThisWorkbook.Sheets("Tabelle1").Range("A1") 'anpassen, hier stehen drr erste Dateiname Do While Datei.Value <> "" geöffnet = False If Not WBOpen(Datei) Then geöffnet = True Workbooks.Open pfad & "\" & Datei End If Workbooks(Datei).Sheets("Daten").Range("A1") = "bestimmter Wert" 'wenn Mappe geöffnet wurde, dann diese speichern und schließen: If geöffnet Then Workbooks(Datei).Close SaveChanges:=True Set Datei = Datei.Offset(1, 0) 'nächtster Dateiname Loop End Sub Function WBOpen(n As String) As Boolean Dim wb As Workbook For Each wb In Application.Workbooks If UCase(wb.Name) = UCase(n) Then WBOpen = True Exit Function End If Next wb End Function

Hallo Mathias
Vielen Dank für das schnelle Feedback
Es sind noch ein paar Probleme aufgetaucht:
in der Do ... Loop Schlaufe muss ich wohl bei If Not WBOpen("Datei") Then, die Datei in Anführungszeichen setzen.
Die Prüfung, ob die Datei bereits offen ist, scheint nicht zu funktionieren, denn es folgt die Frage, ob die Datei wiedergeöffnet werden soll, was zu Datenverlust führen könne
Bei nachfolgender Befehlszeile geht es bei beiden Varianten nicht mehr weiter; könnte es sein, dass dies darauf zurückzuführen ist, dass auch hier Datei in Anführungszeichen zu setzen ist oder gibt es Probleme, weil der Dateiname Leerstellen hat? (emb ist der Name einer Zelle).
Workbooks(Datei).Sheets("_E").Range("ebm") = "500"
Workbooks(Datei).Sheets("_E").Range("H1") = "abc"
Danke für Feedback und freundlicher Gruss
Peter


Sub Makro_Dateien_bearbeiten()
Dim pfad As String, fn As String
Dim Datei As Range
Dim geöffnet As Boolean
pfad = ThisWorkbook.Path
Set Datei = ThisWorkbook.Sheets("Tabelle1").Range("A3") 'anpassen, hier steht der erste Dateiname
Do While Datei.Value <> ""
geöffnet = False
If Not WBOpen("Datei") Then
geöffnet = True
Workbooks.Open pfad & "\" & Datei
End If
Workbooks(Datei).Sheets("_E").Range("ebm") = "500"
'wenn Mappe geöffnet wurde, dann diese speichern und schließen:
If geöffnet Then Workbooks(Datei).Close SaveChanges:=True
Set Datei = Datei.Offset(1, 0) 'nächtster Dateiname
Loop
End Sub

Sub Makro() Dim pfad As String, fn As String Dim Datei As Range Dim geöffnet As Boolean pfad = ThisWorkbook.Path Set Datei = ThisWorkbook.Sheets("Tabelle1").Range("A1") 'anpassen, hier stehen drr erste Dateiname Do While Datei.Value <> "" geöffnet = False If Not WBOpen(Datei.Value) Then geöffnet = True Workbooks.Open pfad & "\" & Datei.Value End If Workbooks(Datei.Value).Sheets("Daten").Range("A1") = "bestimmter Wert" 'wenn Mappe geöffnet wurde, dann diese speichern und schließen: If geöffnet Then Workbooks(Datei.Value).Close SaveChanges:=True Set Datei = Datei.Offset(1, 0) 'nächtster Dateiname Loop End Sub Function WBOpen(ByVal n As String) As Boolean Dim wb As Workbook For Each wb In Application.Workbooks If UCase(wb.Name) = UCase(n) Then WBOpen = True Exit Function End If Next wb End Function

Beliebteste Forumthreads (12 Monate)

Makro in mehreren gleichartigen Dateien ausführen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

148 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro in mehreren gleichartigen Dateien ausführen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

148 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread