habe hier nochmal die Bitte, mir bei einem Makro zu helfen.
Habe hier schon einen Ansatz bekommen, aber das klappt irgendwie nicht und da ich absoluter Makro-Newbie bin, finde ich auch den richtigen Dreh bzw. den Fehler nicht.
Ich habe eine Datei mit einem Tabellenblatt "wertetabelle1".
Und ich habe im gleichen Verzeichnis 100 Dateien mit den Namen "a1.xls" bis "a100.xls".
Das Makro soll jetzt das Tabellenblatt "wertetabelle1" in alle Dateien a1 bis a100 hineinkopieren und dabei die vorhandenen Tabellenblätter wertetabelle1 überschreiben.
Wenn's geht soll das vielleicht so geschehen, dass entweder die Dateien dazu gar nicht erst geöffnet werden müssen oder dass das Makro nach dem Kopiervorgang die Dateien selbst wieder schliesst...erspart einem viel Arbeit ;)
Außerdem ist im Makro der Pfad C:\ angegeben; vielleicht kann man's ja so abändern, dass es unabhängig vom Pfad funktioniert.
So...hier der Stand bis jetzt, aber wie bereits oben erwähnt, funktioniert's nicht so recht. Wer kann helfen??
Werner
Sub Makro1()
For i = 1 To 100
Workbooks.Open Filename:="C:\a" & i & ".xls"
Sheets("wertetabelle1").Delete
' Sheets("wertetabelle1").Select
' ActiveWindow.SelectedSheets.Delete
Windows("mappe1.xls").Activate
' Sheets("wertetabelle1").Select
Sheets("wertetabelle1").Copy Before:=Workbooks("a" & i & ".xls").Sheets(1)
ActiveWorkbook.Close savechanges = True
Next
End Sub