Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Kopieren und Umbenennen eines Blattes
Gruppe
Kopieren
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