Sheet.Codename umbenennen
16.08.2019 17:08:33
Lorenz
Mit folgenden Code werden lt Schleife Sheets angelegt (funktioniert auch).
Was nicht funktioniert ist die Umbenennung des Worksheet Codename (im VBE links neben Tabellenname) ist der Code falsch oder lässt sich der "Codename nicht beeinflussen?
Die Stelle die nicht will ist auskommentiert.
Sub NamenTabellePruefenAnlegen()
Dim wksTab As Worksheet
Dim b As Boolean
Dim sName As String
Dim iNam As Integer, SNamNeu As String
For iNam = 1 To 10
sName = Sheets("Tabelle1").Cells(iNam, 1) 'Range("A1")
For Each wksTab In ThisWorkbook.Worksheets
If wksTab.Name = sName Then
b = True
End If
Next wksTab
SNamNeu = "wksN" & iNam
If Not b Then
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = sName
'Ab hier will mein Code nicht mehr
' With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName)
' .Name = SNamNeu 'ActiveSheet.Name
' End With
'Ende des Nicht-wollens
End If
Next iNam
End Sub
Gruß Lorenz