Tabellenblatt kopieren
30.08.2021 10:45:57
T_s
ich komme hier gerade absolut nicht weiter. Ich möchte ein Tabellenblatt kopieren und anschließend ausschließlich die Werte einfügen. Vor ein paar Tagen habe ich folgenden Makro hier aus dem Forum erhalten, welchen ich jetzt mit xlPasteValuesAndNumberFormats ergänzen möchte. Hat jemand einen Lösungsansatz hier xlPasteValuesAndNumberFormats einzubauen?
Sub Copy()
Dim arrBlätter As Variant
Dim i As Long, ws As Worksheet
Application.ScreenUpdating = False
arrBlätter = Array("Vorlage")
For i = LBound(arrBlätter) To UBound(arrBlätter)
On Error Resume Next
Set ws = Worksheets(arrBlätter(i))
If ws Is Nothing Then
Worksheets("Auswertung").Copy after:=Worksheets(Sheets.Count).PasteSpecial:=xlPasteValuesAndNumberFormats
ActiveSheet.Name = arrBlätter(i)
End If
Next i
Set ws = Nothing
End Sub