Kopie einer Arbeitsmappe
09.05.2006 11:15:07
Julian
Dank eurer Hilfe habe ich nun ein Makro um eine sehr umfangreiche Arbeitsmappe komplett zu kopieren. Hier das Makro dazu:
Sub Speichern_In_neue_Datei()
Application.ScreenUpdating = False
ThisWorkbook.Sheets.Copy
Application.Dialogs(xlDialogSaveAs).Show "D:\Dein_Verzeichnis\Dein_Dateiname"
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
Allerdings werden in der Orginaldatei die Zahlenwerte aus einer Datenbank ausgelesen und in den Zellen zum Auslesen stehen entsprechende DBR-Formeln. In der Kopie die erstellt werden soll, sollen natürlich dann die Werte zu sehen sein und keine Formeln - sprich es müsste automatisch von allen Blättern zudem eine "Wertkopie" erstellt werden.
Sinn des Ganzen ist, dass die gesamte Arbeitsmappe auch Usern zugängig gemacht werden kann, die keinen Zugriff auf die Datenbank haben. Da in der Arbeitsmappe ca. 100 Blätter sind wäre eine manuelle Erstellung natürlich extrem aufwendig.
Schon mal vielen Dank für eure Hilfe!