Office: Absolute Namen für Tabellenblätter

Hallo zusammen,

ich habe ein einer Mappe verschiedenen Tabellenblätter deren Namen und Reihenfolge sich dynamisch ändern.

Wie kann ich ein bestimmtes Tabellenblatt immer zielgenau ansprechen egal welchen Namen es hat und an welcher Stelle (Reihenfolge unten in der Mappe) es steht?


Es gibt ja in VBA die Möglichkeit Tabellenblätter über

worksheets("Name") anzusprechen, aber eben auch über sheets(NR)

Erst dachte ich, dass mit z.B. sheets(2) immer dasselbe Tabellenblatt angesprochen werden kann. Also das, das im Editor als "Tablelle2 (egalWelcherName)" angezeigt wird.


Allerdings ist es ja nun so, dass man mit sheets(2) nur das an der 2. Stelle stehende Blatt einer Mappe ansprechen kann.

Wie bekomme ich es hin ein Tabellenblatt absolut zielgenau anzusprechen?

Danke für eure Hilfe.

Liquid

:)

 

Hallo Liquid,
jedes Blatt hat einen internen nicht änderbaren Namen, schau Dir mal an
Sub test()
Dim a, b, c
Set a = ThisWorkbook.Sheets(2)
b = a.CodeName
c = a.Name
For Each a In ThisWorkbook.Sheets'Aktivieren des Blattes mit Codenamen Tabelle1
If a.CodeName = "Tabelle1" Then
a.Activate
Exit For
End If
Next
End Sub
Die Codenamen stehen als 1. im Projektexplorer des VBA-Editors.
Gruß der ALteDresdner

 

Der interne Name kann durchaus geändert werden (z. B. im Eigenschaftsfenster des VBA-Editors), aber nicht über die "normale" Excel-Oberfläche.

Angesprochen werden kann die Tabelle dann über den internen Namen (steht links vom Tabellennamen in der VBE - siehe Screenshot) so:
Code:

Der Zugriff bleibt dann auch, wenn das Blatt verschoben oder umbenannt wird.

 

Hallo alter Dresdner,

... per VBA geht das natürlich auch ... nur eine Sache von Sekunden.

PHP:

         Sub change_code_name()
Dim wbk As Object, sheet As Object

ActiveWorkbook.VBProject.Name = "VBAProject"

Set wbk = ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.CodeName)
wbk.Name = "wbk_code_name"

Set sheet = ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.Sheets(1).CodeName)
sheet.Name = "sheet_code_name"
End Sub


 

Hallo Liquid,

es wäre nett, wenn Du nicht nur neue Themen eröffnen, sondern auch auf Lösungsvorschäge früherer Aufgabenstellungen reagieren würdest.

Siehe zB Daten prüfen, ob Zeichenfolge mit Unikat-Zahl vorhanden

Gruß
Aloys

 

Hallo Aloys,

du hast recht. Ich habe wohl zu viele Baustellen gleichzeitig auf. Entschuldige. Deine Antwort zu den Unikat-Zahlen habe ich erst heute anschauen können.

Ich möchte nicht undankbar erscheinen und gelobe Besserung.

Grüße
Liquid

 

Danke, jetzt habe ich verstanden.

Worksheets("Egal").Range("C7").Value --> Ansprechen über NAME (angezeigt auf Reiter unten in der Mappe)

Worksheets(1).Range("C7").Value --> das ERSTE Tabellenbaltt der Mappe wird angezeigt, egal welchen CodeName oder NAME es hat.

Tabelle3.Range("C7").Value --> ansprechen über den CodeName (änderbar im VBA-Editor)


==> Dann habe ich eine weitere Frage:

Code:

wird bei mir im Code wird " wkBk.Tabelle3.Range("C7") " nicht angenommen.

Ich habe gerade gelesen, dass man mit den CodeName kein Tabellenblatt in einem anderen Workbook ansprechen kann. Stimmt das? Wenn ja, gibt es einen "Umweg", es am Ende doch hin zu bekommen?

Grüße
Liquid

 

Klar geht das:
Code:

 

Hey HKindler,

cool, danke! Dann ist der Trick in dem Fall, dass man eine Funktion verwenden, oder wie?

Grüße
Liquid

 

Hi,

die Funktion vereinfacht das Ganze etwas. Prinzipiell könnte man das auch direkt im Hauptprogramm machen.

Was macht die Funktion? Sie geht alle Blätter eines Workbooks durch und prüft die Codenamen. Wird eine Übereinstimmung gefunden, wird dieses Blatt zurückgegeben. Wird nichts gefunden, dann bleibt der Rückgabewert auf Nothing.