Gruppe
Allgemein
Bereich
Kopieren
Thema
Kopieren und Umbenennen eines Blattes
Problem
Das Blatt Tab_Ges soll kopiert und umbenannt werden. Im Zielblatt ist der Bereich "Bereich" zu löschen.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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