Makro erweiteren, Dateien öffnen ...
15.08.2006 15:45:04
Falk
folgendes Problem, untenstehendes Makro funktionier einwandfrei, es sind einige Funktionen drin etc., aber es läuft problemlos.
Mein Problem ist folgendes, untenstehendes Makro muß ich auf ca. 10 Dateien ausführen, jetzt muß ich jede Datei öffnen, Makro ausführen, Datei schließen, nächste Datei öffnen etc.
Geht doch einfacher oder? Aber wie?
Kann mir einer mein Makro so umbauen, daß die einzelnen Dateien sich öffnen, abgearbeitet werden, dann schließen und die nächste sich öffnet etc. Die Dateinamen sind bekannt und ändern sich nie, auch der Speicherort ist immer der selbe.
Danke für Eure Hilfe im voraus ...
Grüße
Falk
Sub Wert_Import()
Bereiche_löschen 'Funktion bestimmter Bereich wird gelöscht
ActiveWindow.ActivateNext
Sheets("A").Select
Do Until ActiveSheet.Name = ("E")
Do Until temp = "NN"
Wertübernahme 'Funktion Werte werden übernommen
ActiveSheet.Next.Select
temp = Left(ActiveSheet.Name, 2)
Loop
ActiveSheet.Next.Select
Loop
ActiveWindow.ActivateNext
Prüfsummen 'Funktion Werte werden anhand von Summen geprüft
End Sub