Sheet Speichern und variablen Namen vergeben
18.09.2014 16:52:21
Henry
Hallo, ich habe folgenden Code gefunden um einzelne Sheets in einer neuen Datei zu speichern.
Wie könnte man diesen Code in der Form ändern, dass nicht "Deinneuername.xls" schon vorgegeben ist ? Der Filename sollte per Abfragebox definiert werden.
Sheets("Tabelle1").Copy 'Blatt in neue Mappe kopieren
With ActiveWorkbook
.SaveAs Filename:="DeinneuerName.xls"
.Close
End With
Gruss Henry