Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
812to816
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei kopieren...aber nur Werte und Formate

Datei kopieren...aber nur Werte und Formate
23.10.2006 15:52:48
tobstein
Hallo,
habe mal wieder ein riesiges Problem (auf der Arbeit) und weiß da echt nicht mehr weiter.
Ich besitze eine Excel-Datei mit ca. 15 Tabellenblätter.
In den einzelnen Blättern gibt es unter anderem auch Bezüge auf andere Tabellenblätter der Datei.
Nun möchte ich von der gesamten Datei eine Kopie anlegen...mit allen Tabellenblättern, inklusive der ganzen Formatierung...aber nur mit den Werten in den Zellen...es sollen keine Formeln mehr vorhanden sein.
Wie kann ich das am schnellsten und automatisch erledigen?
Danke
tobi
Ich hab

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei kopieren...aber nur Werte und Formate
ransi
Hallo
Teste dies mal mit einer Kopie von deiner Datei.


Option Explicit
Public Sub test()
Dim wb As Worksheet
ThisWorkbook.SaveAs ("KopieTest.xls")
For Each wb In Worksheets
    wb.UsedRange = wb.UsedRange.Value
Next
End Sub


ransi
Anzeige
AW: Datei kopieren...aber nur Werte und Formate
23.10.2006 16:33:30
tobstein
Hallo ransi,
Dank für Deine Hilfe.
Die datei wird zwar kopiert...aber die Formeln sind noch drin.
Außerdem erscheint, wenn ich das Makro ausführe, ein Fehler: 400
ohne sonstige Fehlererklärung...
tobi
AW: Datei kopieren...aber nur Werte und Formate
23.10.2006 16:47:09
Daniel.Eisert
Hallo
muss heissen:
wb.usedrange.formula = wb.usedrange.value
Gruß, Daniel
AW: Datei kopieren...aber nur Werte und Formate
23.10.2006 16:44:53
Daniel
Hallo
so könnte es gehen: (wenn die Zellen nicht mehr als 256 Zeichen Text haben)

Sub Daten_Sichern()
Dim wbALT, wbNEU As Workbook
Dim shALT, shNEU As Worksheet
Dim i As Long
Set wbALT = ThisWorkbook
Set wbNEU = Workbooks.Add
For Each shALT In wbALT.Sheets
shALT.Copy After:=wbNEU.Sheets(wbNEU.Sheets.Count)
With ActiveSheet.UsedRange
.Copy
.PasteSpecial xlPasteValues
End With
Next
End Sub

Gruß, Daniel
Anzeige
AW: Datei kopieren...aber nur Werte und Formate
23.10.2006 16:51:10
tobstein
Hallo Daniel,
auch mit Deinem Vorschlag bricht das Makro mit der Fehlermeldung 400 ab.
Die datei wird kopiert...besitzt aber nur 1 Tabellenblatt...und die Formeln sind trotzdem noch drin...verweisen auf die ursprüngliche Datei.
tobi
AW: Datei kopieren...aber nur Werte und Formate
ransi
Hallo Tobstein
Sind die Tabellenblätter geschützt?
Sind in den Blättern verbundene Zellen?
Sind da noch andere Ereignissprozeduren am Werk?
ransi
AW: Datei kopieren...aber nur Werte und Formate
23.10.2006 17:01:26
Ludicla
Hey Tobstein,
ich würde mir das einfach machen:
Kopie anlagen:
1. Tabelle 1 bis xxxx gruppieren (1. anclicken + Umschalttaste letze anclicken
- alle aktiviert)
2. Gesamt markieren (neben A und über 1) bearbeiten - kopieren - Inhalte einfügen -
Werte einfügen - u.U. Formate einfügen.
Damit müsste es klappen.
mfg Ludicla
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige