Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Tabellenblattnamen der VBE-Projekte ändern

Gruppe

Tabelle

Problem

Wenn ich ein Tabellenblatt mit Namen "Tabelle1" kopiere, wird für das kopierte Blatt im Projektexplorer der Entwicklungsumgebung der Name "Tabelle1" angelegt. Wie kann ich diesen Namen per VBA-Makro korrigieren?

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

StandardModule: basMain

Sub BlattKopieren()
   Dim wks As Worksheet
   Dim sName As String
   Worksheets(1).Copy after:=Worksheets(Worksheets.Count)
   Set wks = ActiveSheet
   sName = "NewTable" & Worksheets.Count - 2
   ActiveSheet.Name = sName
   ThisWorkbook.VBProject.VBComponents(wks.CodeName) _
      .Properties("_codename") = sName
   MsgBox "Blatt wurde kopiert!"
End Sub

    

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