Datei kopieren mit VBA
03.01.2022 15:33:36
Marko
einen guten Start in neue Jahr wünsche ich Euch. Mit folgenden Code kopiere ich ein Sheet und benenne dieses anschließend mit dem Inhalt aus Zelle E3 um.
Gibt es eine Möglichkeit den Hinweis von Excel: "Die folgenden Features können in Arbeitsmappen ohne Makros nicht gespeichert werden: - VB Projekt..." nicht erscheinen zu lassen? Vielen Dank vorab für Eure Unterstützung.
Gruß, Marko
Private Sub CommandButton2_Click()
'Tabelle SEB kopieren
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
ActiveWorkbook.Worksheets("SEB").Copy
ActiveWorkbook.SaveAs Sheets("SEB").Range("E3").Value & ".xlsm"
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub