Variable Tabellenblätter in neue Datei
26.10.2021 11:24:39
Andrea
ich möchte 2 Tabellenblätter (nur Werte) in eine neue Arbeitsmappe kopieren. Die Tabellenblätter können immer andere sein.
Die Namen der zu kopierenden Tabellenblätter stehen in dem aktivem Tabellenblatt.
Leider erhalte ich die Fehlermeldung "Laufzeitfehler 13: Typen unverträglich" bei
Kann mir jemand helfen?
Hier mein Code:
Sub PP_und_FP_in_neue_Datei()
Dim wksPP As Worksheet
Dim wksFL As Worksheet
Dim WBS As Workbook
Dim WS As Worksheet
Set wksPP = Worksheets(ActiveSheet.Cells(7, 9).Value)
Set wksFL = Worksheets(ActiveSheet.Cells(8, 9).Value)
With Worksheets(Array(wksPP, wksFL)).Copy
Set WBS = ActiveWorkbook
For Each WS In WBS.Worksheets
WS.UsedRange.Value = WS.UsedRange.Value
Next WS
End With
End sub
Danke Andrea