Folgenden Code hab ich mir zusammengebastelt bzw. kopiert...
Dim wks As Integer
Workbooks.Add
With ThisWorkbook
ActiveWorkbook.SaveAs .Path & "\Kopie von" & ThisWorkbook.Name
For wks = .Worksheets.Count To 1 Step -1
If .Worksheets(wks).Name = "Start" Or .Worksheets(wks).Name = "Product Portfolio" Or _
.Worksheets(wks).Name = "Data Input" Or .Worksheets(wks).Name = "Space Segment" Or _
.Worksheets(wks).Name = "Transport & FS" Or .Worksheets(wks).Name = "Instal. & other dir. cost" Or _
.Worksheets(wks).Name = "License & Personnel" Or .Worksheets(wks).Name = "Commission" Or _
.Worksheets(wks).Name = "Financial Overview" Or .Worksheets(wks) = "Orderlist" Then
If wks .Worksheets.Count Then Sheets.Add
.Worksheets(wks).Cells.Copy
With ActiveWorkbook.ActiveSheet.Cells
.PasteSpecial Paste:=xlPasteValues ' Werte
.PasteSpecial Paste:=xlFormats ' Formate
.PasteSpecial Operation:=xlNone
.PasteSpecial Transpose:=False
End With
ActiveWorkbook.ActiveSheet.Name = .Worksheets(wks).Name
End If
Next wks
Application.CutCopyMode = False
MsgBox "Reine Datentabelle gespeichert als: " & .Path & "\Kopie_von" & ThisWorkbook.Name
Application.DisplayAlerts = False
ActiveWorkbook.Worksheets("Tabelle1").Delete
Application.DisplayAlerts = True
ActiveWorkbook.Close True
End With
End Sub
Aber als ich mehr als 6 Arbeitsblätter in der ersten IF-Anweisung (durch "or" verknüpft) eingefügt habe, kommen nur noch Fehlermeldungen.
Weiß jemand Rat?
Mit freundlichem Gruß,
Ralf