einige Tabellenblätter als Werte in neue Datei

Hallo,
ich habe immer noch ein unglöstes Problem, was in einem eigenen Thread besser aufgehoben ist. Dank Matthias G bin ich nun zwar in der Lage die ganze Datei nur mit Werten zu Kopieren. Es sollen aber nur bestimmte Tabellenblätter kopiert werden und die Makros der Ursprungsmappe nicht mit kopiert werden. Hat jemand eine Idee, wie das VBA dazu aussehen müsste?
Derzeit mache ich das mit:


Sub Test() Lösung von {mskro}
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4")).Select ca 20 Tabellenblätter
Sheets("Tabelle1").Activate
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4")).Copy
End Sub

Hierbei werden allerdings auch die darin enthaltenen Sverweise mit kopiert, die nicht benötigt werden und das ganz sehr lange dauern lassen (über 500 komplexe SVerweise).


Sub Kopiere_Werte() Lösung von Matthias G
Dim fn As String, sh As Worksheet
Dim calcMode
With ActiveWorkbook
fn = "Werte_" & .Name
If Not .Saved Then .Save
.SaveAs Filename:=.Path & "\" & fn
calcMode = Application.Calculation
Application.Calculation = xlCalculationManual
For Each sh In .Worksheets
sh.Cells.Copy
sh.Cells.PasteSpecial Paste:=xlPasteValues
Next sh
Application.Calculation = calcMode
Application.CutCopyMode = False
.Save
End With
End Sub

Wer ist vielleicht in der Lage, daraus eine komplette Version zu machen, die meine Wünsche erfüllt?
Gruss Manfred

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub KopiereWerte() Dim Blätter() Dim Blatt Dim WB As Workbook Dim fn As String Const tmpname = "sdgfhsgh" 'zu kopierende Blätter Blätter = Array("Tabelle1", "Tabelle2", "Tabelle4") fn = ThisWorkbook.Path & "\Werte_" & ThisWorkbook.Name Application.ScreenUpdating = False 'neue Mappe anlegen: Set WB = Workbooks.Add(Template:=xlWBATWorksheet) ActiveSheet.Name = tmpname 'Namen der neuen Mappe vergeben: For Each Blatt In Blätter WB.Sheets.Add After:=WB.Sheets(WB.Sheets.Count) ActiveSheet.Name = Blatt Next 'temp-Blatt löschen: Application.DisplayAlerts = False WB.Sheets(tmpname).Delete Application.DisplayAlerts = True 'Werte kopieren: For Each Blatt In Blätter ThisWorkbook.Sheets(Blatt).Cells.Copy WB.Sheets(Blatt).Cells.PasteSpecial Paste:=xlPasteValues 'optional: wenn auch die Formate kopiert werden sollen 'WB.Sheets(Blatt).Cells.PasteSpecial Paste:=xlPasteFormats Next Application.CutCopyMode = False 'optional: Markierungen entfernen (auf A1 setzen): WB.Activate For Each Blatt In Blätter WB.Sheets(Blatt).Activate Range("A1").Select Next Application.ScreenUpdating = True 'Mappe speichern: WB.SaveAs Filename:=fn End Sub

Sub KopiereWerte() Dim Blätter() Dim Blatt Dim WB As Workbook Dim fn As String Dim w_Zoom As Integer Const tmpname = "sdgfhsgh" 'zu kopierende Blätter Blätter = Array("Tabelle1", "Tabelle2", "Tabelle3") fn = ThisWorkbook.Path & "\Werte_" & ThisWorkbook.Name Application.ScreenUpdating = False 'neue Mappe anlege Set WB = Workbooks.Add(Template:=xlWBATWorksheet) ActiveSheet.Name = tmpname 'Namen der neuen Mappe vergeben For Each Blatt In Blätter WB.Sheets.Add After:=WB.Sheets(WB.Sheets.Count) ActiveSheet.Name = Blatt Next Application.DisplayAlerts = False WB.Sheets(tmpname).Delete Application.DisplayAlerts = True 'Werte kopieren For Each Blatt In Blätter ThisWorkbook.Sheets(Blatt).Cells.Copy WB.Sheets(Blatt).Cells.PasteSpecial Paste:=xlPasteValues 'optional: wenn auch die Formate kopiert werden sollen WB.Sheets(Blatt).Cells.PasteSpecial Paste:=xlPasteFormats Next Application.CutCopyMode = False 'Markierungen entfernen (auf A1 setzen) und Zoom setzen WB.Activate For Each Blatt In Blätter ThisWorkbook.Sheets(Blatt).Activate w_Zoom = ActiveWindow.Zoom WB.Sheets(Blatt).Activate Range("A1").Select ActiveWindow.Zoom = w_Zoom Next Application.ScreenUpdating = True WB.SaveAs Filename:=fn End Sub

Beliebteste Forumthreads (12 Monate)

einige Tabellenblätter als Werte in neue Datei

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

einige Tabellenblätter als Werte in neue Datei

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread