Codename Tabellenblatt ändern

Forumthread: Codename Tabellenblatt ändern
6 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Codename Tabellenblatt ändern

07.08.2019 17:37:23

Jens

Hallo,


For Each WsTabelle In Sheets
If WsTabelle.Name = Range("A1") Then
WsTabelle.Visible = xlVeryHidden
'WsTabelle.Add.CodeName = Range("A1")
End If
Next WsTabelle

weis jemand warum ein fehler kommt wenn sobald ich die Zeile


WsTabelle.Add.CodeName = Range("A1")

aktiviere?
Er sagt dann. methode nicht gefunden.
Ich will den Codename (nicht den Blattname) per VBA vorgeben

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Das geht nicht per VBA! o.T.

07.08.2019 17:44:20

Sepp
AW: Das geht nicht per VBA! o.T.

07.08.2019 18:12:16

jens
AW: Das geht nicht per VBA! o.T.

07.08.2019 18:22:44

Daniel
AW: Das geht nicht per VBA! o.T.

07.08.2019 18:26:12

Tom
AW: Das geht nicht per VBA! o.T.

07.08.2019 18:29:57

Werni
Das 'Geht doch per VBA' kann ich bestätigen, ...

07.08.2019 19:19:48

Luc:-?

Das geht nicht per VBA! o.T.

07.08.2019 17:44:20

Sepp

AW: Das geht nicht per VBA! o.T.

07.08.2019 18:12:16

jens

kann man dann zumindest den name auf das Blatt auf das man sich bezieht aus einer zellen beziehen.
Worksheets("BSK")
der Ausdruck BSK steht in Zelle A1 des Blattes "Daten"

AW: Das geht nicht per VBA! o.T.

07.08.2019 18:22:44

Daniel

Hi
wenn es sich um den Namen handelt, welcher auf dem Reiter steht:

Worksheets(Worksheets("Daten").Range("A1").Text)

Gruß Daniel

AW: Das geht nicht per VBA! o.T.

07.08.2019 18:26:12

Tom

Hi,

ThisWorkbook.Worksheets("Daten").Cells(1, 1).Value

AW: Das geht nicht per VBA! o.T.

07.08.2019 18:29:57

Werni

Hallo Jens
Wozu braucht man sowas?

Sub Umbenennen()
Dim WS_Count As Integer
Dim I As Integer
Dim ZCHE As String
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
ZCHE = Worksheets(I).[A1]
ThisWorkbook.VBProject.VBComponents(Worksheets(I).CodeName).Name = ZCHE
Next
End Sub

Gruss Werni

Das 'Geht doch per VBA' kann ich bestätigen, ...

07.08.2019 19:19:48

Luc:-?

…Werni & all!
Mein Test ganz simpel per EreignisProzedur auch so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim wb As Workbook
MsgBox Me.CodeName
Set wb = Me.Parent
wb.VBProject.VBComponents(Me.CodeName).Name = "Tab" & CStr(Me.Index)
MsgBox Me.CodeName
Set wb = Nothing
End Sub

Gruß, Luc :-?
Der beste Beweis für intelligentes Leben im Universum ist, dass noch niemand versucht hat, Kontakt mit uns aufzunehmen. H.Lesch, 2018, Sonneberg
Deshalb Intelligenz steigern mit