Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

VBE-Namen der Blattmodule beim Kopieren festlegen

Gruppe

Tabelle

Problem

Wenn ich das jeweils letzte Blatt einer Arbeitsmappe 50 mal kopiere, wird im VBE-Projektexplorer dem Namen des Klassenmoduls des jeweils kopierten Blattes immer eine 1 hinzugefügt, bis das Programm abbricht. Wie kann ich das ändern.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub cmdButton_Click()
   Dim iCounter As Integer, iCount As Integer
   Application.ScreenUpdating = False
   For iCounter = 1 To 50
      iCount = Worksheets.Count
      Worksheets(iCount).Visible = True
      Worksheets(iCount).Copy after:=Worksheets(iCount)
      ActiveSheet.Name = "Blatt" & iCounter
      With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName)
         .Properties("_CodeName").Value = ActiveSheet.Name
      End With
   Next iCounter
   Worksheets(1).Select
   Application.ScreenUpdating = True
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen VBE und Tabelle