Gleichnamige Makros in vielen geöffneten Dateien

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Martin,
danke für Deine Nachricht. In etwa. Eine Datei, nennen wir sie Steuerdatei.xls beinhaltet eine Liste aller geöffneten Dateien, welche ich über ein Makro einlese. Alle Dateien beinhalten in sich selbst gleichnamige Makros. Z.B. Formatierung, Kalkulation, Druck etc.
Momentan muss ich jede einzelne Datei auswählen und dort die einzelnen Makros zur Ergebnisfindung aufrufen. Erst dann finde ich das gewünschte Ergebnis in der Steuerdatei.xls. Bei 20 Dateien eine unangenehme und zeitaufwändige Arbeit. Daher möchte ich in einer Routine jedes erforderliche Makro in jeder Datei automatisch aufrufen lassen. Also in etwa so: Greife den ersten Dateinamen in der Datei Steuerdatei.xls auf (123.xls) und Wechsel zu der geöffneten Datei 123.xls. Dort rufe das Makro Kalkulation auf. Danach das Makro Ausdruck. Hiernach arbeite diese Routine bis zum Ende der Liste (154.xls) ab.
Oder man kann es auch noch anders erklären wenn man an die Druckertools denkt auf welche man verschiedene Drucke geben kann und zum Schluss erst in dem Tool den eigentlichen Ausdruck durchführt. Auf unser Beispiel würde das bedeuten: "Lies den ersten Dateinamen aus der Datei Steuerdatei.xls aus und wechsel zu dieser (bereits geöffneten) Datei. Führe dort das Makro Ausdruck aus. Danach greife auf den zweiten Dateinamen in der Datei Steuerdatei.xls zu und führe die gleiche Routine durch. etc.pp
Man würde sich dann durch den Aufruf eines einzigen Makros das Wechseln zu jeder Datei und den dortigen Aufruf des Makros "Ausdruck" sparen.
Hoffentlich konnte ich es so besser verdeutlichen.
Vielen Dank vorab für Deine Idee wie man es umsetzen könnte.
Schöne Grüsse
Winfried

Hallo Martin,
in der "Steuerdatei.xls" steht nichts besonderes. In dieser Datei lasse ich ein Makro ablaufen:

Sub DateienAuflistenUndHyperlinken()
Dim i As Long
Dim Bereich As Range
Dim Zelle As Range
Const verz = "Z:\Projekt\0001"
'ACHTUNG PFAD ANPASSEN !!!!
'oder über Inputbox kreieren lassen
ChDir verz
Range("A:A").ClearContents
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Offset(1, 0).Select
Next i
End With
Range("A1").Select
Set Bereich = ActiveCell.CurrentRegion
For Each Zelle In Bereich
Zelle.Hyperlinks.Add Zelle, Zelle.Value
Next Zelle
End Sub

Dann habe ich dort alle Excel-Dateien aufgelistet. Eben diese sind auch allesamt geöffnet bzw. werden geöffnet. In jeder geöffneten Datei sind die Makros an gleicher Position, da die Dateien kopiert und angepasst wurden. Also die wichtigen Makros "Kalkulation, Formatierung und Druck" sind alle gleich.
Jetzt geht es darum z.B. in Tabelle 1 von Steuerdatei.xls in Zelle A1 den Dateinamen auszulesen, zu der Datei zu wechseln und dort dann das Makro (die Makros) aufzurufen. Nach dem Durchlauf die Zelle A2 in Tabelle 1 von Steuerdatei.xls auszulesen und zu dieser Datei zu wechseln. Dort dann erneut die Makros aufrufen. Das ganze so oft durchzuführen bis alle Dateien abgearbeitet wurden, bzw das Ende des Datensatzes (A1, A2, A3..) erreicht ist.
Also in etwa so

Sub Ausführen ()
'hier muss der Code für das Auslesen des Dateinamens und der Wechsel zu der Datei stehen
call Kalkulation
call Formatierung
call Druck
'hier muss dann wohl so etwas wie "gehe zurück zur Steuerdatei Tabelle1 nächstes Feld in Spalte  _
1 bis Ende und kehre zurück zum Anfang dieser Routine stehen
End 

Sub
Es sollte eigentlich gar nich sooooooo extrem schwierig sein. Nur durch Probieren komme ich natü _
rlich nie ans Ziel dank fehlender VBA-Kenntnisse. Leider.
Vielleicht reichen die Angaben so schon.
Vielen Dank für die Hilfe!
Gruss
Winfried

Sub Ausführen() Dim zeile As Long, aws As Object, newb As String Set aws = ActiveWorkbook 'merken des aktiven WB Application.ScreenUpdating = False 'um den Bildschirm ruhig zu halten With ActiveSheet 'setzt voraus, dass das Makro vom Blatt Steuerung in Steuerdatei.xls gestartet wird zeile = 1 While Not IsEmpty(.Cells(zeile, 1)) 'setzt voraus, dass nach dem letzten Dateinamen in Spalte A nichts mehr steht newb = .Cells(zeile, 1) 'Name des zu bearbeitenden WB On Error Resume Next Workbooks(newb).Activate 'damit Makro im richtigen WB abläuft If Err Then Workbooks(newb).Open 'falls WB noch nicht offen Err.Clear 'evtl. Fehler löschen Application.Run newb & "!Modul1.Kalkulation" 'siehe unten!!! If Err Then 'falls Fehler Application.ScreenUpdating = True MsgBox "Makro Kalkulation in Datei " & newb & " nicht ausgeführt!", vbCritical Err.Clear Application.ScreenUpdating = False End If Application.Run newb & "!Modul1.Formatierung" 'siehe unten!!!!! If Err Then 'falls Fehler Application.ScreenUpdating = True MsgBox "Makro Formatierung in Datei " & newb & " nicht ausgeführt!", vbCritical Err.Clear Application.ScreenUpdating = False End If '"Modul1" anpassen! hier muss der Name des Objekts stehen, 'in dem das Makro aufgeführt ist (VBA-Editor linkes Fenster) ' kann sein: Diese Arbeitsmappe, Tabelle xyz, Modul abc... aws.Activate 'zurück zum Start-WB zeile = zeile + 1 'nächste Datei Wend End With Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Gleichnamige Makros in vielen geöffneten Dateien

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Gleichnamige Makros in vielen geöffneten Dateien

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread