Gruppe
VBE
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?
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