Gruppe
Allgemein
Bereich
Kopieren
Thema
Blätter in andere Arbeitsmappen kopieren
Problem
Wie kann ich makrogesteuert Blätter aus einer in eine andere Arbeitsmappe kopieren und dort als letztes Blatt einordnen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub SheetCopy()
Dim wkb As Workbook
Set wkb = Workbooks.Add
ThisWorkbook.Worksheets(1).Copy _
after:=wkb.Worksheets(wkb.Worksheets.Count)
End Sub