Datei komplett kopieren :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Datei komplett kopieren

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

tobstein
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 27

Verfasst am: 05.03.2008, 11:31

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 Question

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 Question

Danke schon einmal

tobi

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 05.03.2008, 11:52

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.

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!

tobstein
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 27

Verfasst am: 05.03.2008, 17:58

Hallo schatzi,

suuuuuuuuuper vielen Dank......Dein Makro hat absolut perfekt funktioniert.
Danke Very Happy

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 05.03.2008, 18:04

Hallo!

Ungetestet:

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

tobstein
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 27

Verfasst am: 05.03.2008, 18:11

Danke...

hat geklappt.

tobi Very Happy

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Vierecke Word - Datei nicht mehr lesb...	Limited	Microsoft Word Hilfe	2	20.11.2008, 11:07
	VBA-Makro: Kalendereintrag kopieren?	SvenZ	Microsoft Outlook Hilfe	9	18.11.2008, 10:16
	Nicht vorhandene pst-Datei	gungOfficeHilfe	Microsoft Outlook Hilfe	1	14.11.2008, 13:32
	Daten in andere Datei übernehmen	Harro	Microsoft Excel Hilfe	11	11.11.2008, 15:28
	Kopieren von Inhalt + Format	anfaenger	Microsoft Excel Hilfe	1	05.11.2008, 15:36

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de