Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Blätter in andere Arbeitsmappen kopieren
Gruppe
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