Gruppe
VBE
Bereich
Tabelle
Thema
Tabellenblattnamen der VBE-Projekte ändern
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