Arbeitsblatt als Datei speichern und Makros lösche
29.11.2016 07:46:13
Felix
ich möchte per Makro ein Arbeitsblatt kopieren und als Seperate Datei über den Dialog SaveAs speichern. Dies funktioniert mit meinem Code auch:
Sub WS_save_as()
Dim strDateiname As String
datestring = Format(Now, "yyyy-mm-dd")
strDateiname = ("Proforma-" & datestring)
Application.Dialogs(xlDialogSaveAs).Show (strDateiname)
End Sub
In der neuen Datei befinden sich alle Makros der Quelldatei. Wie kann ich es erreichen, dass das Blatt ohne Makros gespeichert wird?