Gruppe
Allgemein
Problem
Das Blatt Tab_Ges soll kopiert und umbenannt werden. Im Zielblatt ist der Bereich "Bereich" zu löschen.
StandardModule: basMain
Sub WksCopy()
Const csWks As String = "Tab_Ges"
Worksheets(csWks).Copy _
after:=Worksheets(Worksheets.Count)
Application.DisplayAlerts = False
Worksheets(csWks).Delete
Application.DisplayAlerts = True
ActiveSheet.Name = csWks
Range("Bereich").ClearContents
End Sub