(Namen) von Arbeitsbl. in anderer Excel

Hallo zusammen,
ich habe folgende Frage bei der mir ChatGTP nicht weiterhelfen konnte und in Google nicht fündig wurde.

Wie kann auf ein Arbeitsblatt einer anderen Exceldatei zugegriffen werden, wenn der Name des Arbeitsblattes unter Eigenschaften des Entwicklertools geändert wurde? Also unter Eigenschaften im Entwicklertool steht folgendes:
(Name) = wksEintr
Name = Einträge

Ich möchte auf den nicht sichtbaren Namen des Arbeitsblattes zugreifen. Dieser wird im Entwicklungstool als (Name) bezeichnet. Ich möchte den sichtbaren Namen nicht erst umwandeln müssen, da der sichtbare Name vom Benutzer geändert werden kann und es zu Fehlern kommen kann. Wie kann ich also direkt auf den nicht sichtbaren (Namen) zugreifen?

Es soll also auf wksEintr zugegriffen werden.
zB.



Set wbkInst = Workbooks.Open("C:\test.xlsx")
    
    wbkInst.wksEintr.Activate
    wbkInst.wksEintr.Range("A1").Select

NICHT auf den Namen der der Bediener sehen und ändern kann:


Set wbkInst = Workbooks.Open("C:\test.xlsx")
    wbkInst.Worksheets("Einträge").Activate
    wbkInst.Worksheets("Einträge").Range("A1").Select

Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub tt() Dim wb As Workbook Dim ws As Worksheet Set wb = ThisWorkbook For Each ws In wb.Worksheets If ws.Name > ws.CodeName Then MsgBox (ws.Name & " is not " & ws.CodeName) Next End Sub

Hallo Mark,

es gibt den im Reiter sichtbare Name des Worksheets:
Workbooks.Open("C:\test.xlsx").Worksheets("Einträge").Activate
und es gibt der Name des Code-Objekts des Worksheets (meistens 1 zu 1, aber man kann ja letzteres in VB-Editor ändern):
[Einträge].Activate

Diese Eigenschaften sind jeweils mit .Name und .CodeName zu haben
Debug.Print Workbooks.Open("C:\test.xlsx").Worksheets("Einträge").Name
Debug.Print Workbooks.Open("C:\test.xlsx").Worksheets("Einträge").CodeName

Wegen der Unsicherheit des Vorhandenseins des Namen sollte man unter Verwendung von "On Error" abfragen. Dann am besten in einer separaten Prozedure:

Public Function CodeName_lesen(wb As Workbook, ByVal WSName As String) As String
    On Error Resume Next
    CodeName_lesen = wb.Worksheets(WSName).CodeName
End Function

VG
Yal

Beliebteste Forumthreads (12 Monate)

(Namen) von Arbeitsbl. in anderer Excel

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

(Namen) von Arbeitsbl. in anderer Excel

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread