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