Nachtrag zu Alle Arbeitsblätter als einzeln. Mappe
14.04.2004 22:28:08
Roberto
Hallo Matthias,
habe Dein Makro heute mal in der Firma ausprobiert. Als ich es in der
persönlichen Arbeitsmappe ablegte und es startete, wurden alle Arbeitsblätter in das VerzeichnisXl Start gespeichert.
Wenn ich statt ThisWorkbook ActiveWorkbook nehme speichert er die Dateien direkt unter C\.
Mein Ziel war jedoch dass er die Arbeitsblätter in dem Ordner abspeichert, von wo aus ja auch die Originaldatei geöffnet wurde.
Das Makro funktioniert einwandfrei, wenn ich es in ein Modul in der geöffneten Arbeitsmappe einbaue und dann starte.
Schöner wäre es, wenn ich es in der persönlichen Arbeitsmappe hätte und von dort aus starten könnte.
Hier noch mal der Code. Falls ausser Matthias noch jemand eine Lösung hat freue ich mich natürlich auch.
Sub BlätterEinzelnSpeichern()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" + ActiveSheet.Name & ".xls"
ActiveWorkbook.Close
Next i
Application.ScreenUpdating = True
End Sub
Vielen Danke im voraus :-)
Roberto