Office: Datei komplett kopieren

Hallo,

ich habe zur Zeit ein richtig großes Problem.

Ich habe mein problem bereits in einem anderen Excel-Forum gepostet...allerdings konnte man mir da nicht wirklich weiterhelfen...deshalb versuche ich es hier erneut...ich hoffe, dass ist so ok :?:

Ich besitze eine Datei mit ca. 20 Tabellenblättern. Die Tabellenblätter weisen zeimlich viele
Formeln und Verweise auf andere Dateien auf.

Nun möchte ich alle Dateien löschen, diese eine aber archivieren. Dazu möchte ich von dieser
Datei eine Kopie erstellen...die aber nur die Formate und Werte enthält.

Ich weiß, das ich jedes einzelne Tabellenblatt mit Kopieren und Inhalt einfügen so in eine neue Datei kopieren kann...allerdings bei 20 oder mehr Tabellenblättern sehr aufwendig.

Kann man das nicht mit einem Makro machen und wenn ja...wie :?: :?:

Danke schon einmal

tobi

 

Hallo!

Mir fällt dazu nur folgende schnelle (aber gefährliche!) Variante ein:

Code:

Sub WerteKopie()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Cells.Copy
wks.Cells.PasteSpecial xlPasteValues
Next wks
Application.CutCopyMode = False
ActiveWorkbook.SaveAs ActiveWorkbook.Name & " Kopie", FileFormat:=xlNormal
End Sub

Speichert eine Datei mit dem Namen "DeinDateiname Kopie.xls", die nur aus Festwerten besteht.

ABER: Auch in der Originaldatei stehen nun Festwerte!!!
ALSO: Original VOR dem Makro speichern.
Original NACH dem Makro schließen (OHNE(!!!) Änderungen zu speichern!)
Original wieder öffnen.

 

Hallo schatzi,

suuuuuuuuuper vielen Dank......Dein Makro hat absolut perfekt funktioniert.
Danke :-D :-D :-D

Mein erster Post hier im Forum und 100% Erfolg...was will man mehr...

Habe nur noch eine Frage.
Wie muss man das Makro abändern, damit die Kopie nicht im Ordner Eigene Dateien erstellt wird, sondern im gleichen Ordner wie das Original??

es dankt
tobi

 

Hallo!

Ungetestet:

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ActiveWorkbook.Name & " Kopie", FileFormat:=xlNormal

 

Danke...

hat geklappt.


tobi :-D