23.06.2020, 16:26
Hi,
mit einem Code kopiere ich Formeln und Inhalte eines Report-Blattes in eine neue Datei.
Nun soll aber in der neuen Datei auch ein Makro funktionieren, dieses müßte ich also auch in die neue Datei kopieren. Wie mache ich das denn?
mit einem Code kopiere ich Formeln und Inhalte eines Report-Blattes in eine neue Datei.
Nun soll aber in der neuen Datei auch ein Makro funktionieren, dieses müßte ich also auch in die neue Datei kopieren. Wie mache ich das denn?
Code:
...
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = "K:\EVG" & "\" & "ELC " & Range("F8") & " " & Range("F9")
.Title = "Bitte einen Speicherort für die Sicherung auswählen!"
.Show
' Dim wb As Workbook
Set wb = Workbooks.Add
'ThisWorkbook.Sheets("Protokoll").Copy Before:=wb.Sheets(1)
Call Kopieren
If .SelectedItems.Count = 1 Then wb.SaveAs .InitialFileName, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End With
...