vba- 2 Blätter in neue Mappe einfügen
17.10.2019 11:14:04
Fred
Hallo Excel-Profis,
ich nutze bereits eine Zeit lang das Makro
Dim DateiName As String
Const Pfad As String = "C:\Users\Besitzer\Desktop\Depot_1\"
DateiName = Worksheets("Kriterien").Range("E1").value
Worksheets("Tabelle1").Copy
ActiveWorkbook.SaveAs Pfad & DateiName, FileFormat:=51
ActiveWorkbook.Close savechanges:=False
Es wird eine Mappe erstellt, dessen Name in Sheet("Kriterien").range("E1") steht.
Kopiert und in die neue Mappe eingefügt wird das Tabellenblatt "Tabelle1".
Schön kurz der Code. Wie ist es aber, wenn ich 2 Sheets kopieren und einfügen möchte?
Kann mir jemand bitte dies entsprechend korrekt ergänzen?
Gruß
Fred