Microsoft Excel

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