Hallo liebe Experten,
ich habe folgendes Problem: Ich möchte gerne 2 Tabellenblätter aus einer Datei in eine neue Kopieren. Mit einem klappt es bis jetzt hervorragend mit folgendem Code:
Public Sub Main()
Application.ScreenUpdating = False
Tabelle9.Copy
With ActiveSheet.UsedRange
.Value = .Value
End With
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\" & ("XX XX " & Format(DateSerial(Year(Now), Month(Now), 0), "YYYY-MM") & ".xlsx")
.Close False
End With
Application.ScreenUpdating = True
End Sub
Das Problem ist das ich es nicht hinbekomme mit 2 blättern dies zu erledigen.
Über Tips würde ich mich sehr Freuen
MFG Rigo
|