Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sheet.Codename umbenennen

Sheet.Codename umbenennen
16.08.2019 17:08:33
Lorenz
Hallo Helfende!
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
leider doppelt
16.08.2019 17:09:27
Lorenz
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige