ich habe auf der Arbeit ca. 80 Excel Dateien, die regelmäßig aktualisiert werden. Um nun in den Dateien die eigenen Dienststellen farblich zu markieren, habe ich ein kleines Makro erstellt, was die Arbeiot für mich automatisiert.
Allerdings muss ich jede Datei einzeln öffnen und das Makro reinkopieren.
Um dies mittels Makro zu erstellen, habe ich hier aus dem Forum diverse Scripte gesucht und dachte ich köme weiter.
Das Problem ist, die Dateien liegen nicht in den Eigenen dateien, sondern in unterschiedlichen Ordner. Mir würde es ausreichen, wenn das Makro alle Dateien des aktuellen Ordners bearbeitet.
Hier mein Versuch, der leider fehlgeschlagen ist.
Die Auskommentierte Zeile funzt, wenn die Dateien im Ordner Eigene Dateien liegt.
Please help me :-)
Sub Alle_oeffnen()
Dim Dateiname As String
strVerzeichnis = ActiveWorkbook.Path
StrTyp = "*.xls"
Dateiname = Dir(strVerzeichnis & StrTyp)
' Dateiname = Dir("*.xls") ==> geht in die Eigenen Dateien :-(
Do While Dateiname <> ""
Workbooks.Open Dateiname
einfaerben
ActiveWorkbook.Close True
Dateiname = Dir
Loop
End Sub
Vielen Dank an alle, die mir helfen können ...
Gruß
Dirk
P.S.: Vor dem Skript habe ihc einen ganzen Arbeitstag für das einfärben verbraucht, ist Dank meines ersten Makros auf 30 Minuten geschrumpft, nun soll ein neuer Geschwindigkeitsrekord her ;-)