HERBERS Excel-Forum - das Archiv

Thema: ungültiger Bezeichner

ungültiger Bezeichner
chkemm
Hallo Forum,

Ich hab schon wieder einmal ein Problem

Ich würde gern über die UF in einer List box ein Tabellenblatt auswählen.
dann über die gleiche UF in den Boxen Werte eingeben die auf dem dazugehörigem Tabellenblatt in die Tabelle eingetragen wird.
Aber in die Zeile die auf dem ersten Tabellenblatt angeben wird ( hier KW)
Dann sollen die Werte als Diagramm aus wählbar sein und ausgelesen werden( das ist kein Problem).

Jetzt zeigt er mir immer einen Fehler beim Komplimentieren an: Ungültiger Bezeichner

Der Fehler ist bestimmt ganz simple aber leider zu schwer für mich darum brauch ich eure Hilfe

https://www.herber.de/bbs/user/170860.xlsm
AW: ungültiger Bezeichner
daniel
bitte aufpassen.
jedes Tabellenblatt hat zwei Namen:
a) den Indexnamen.
Dieser steht im Projektexplorerbaum in der Klammer und zusätzlich auf dem Tabellenblattreiter. In der Eigenschaftsliste steht bei "Name" (vierte Zeile von unten)
b) den Codenamen.
Dieser steht im Projektexplorerbaum vor der Klammer und in der Eigenschaftsliste bei "(Name)" (oberste Zeile)

du kannst das Tabellenblatt im Code über beide Namen referenzieren.
wenn man den Indexnamen verwendet, so muss das ein Textstring sein welcher In ein Sheets("Indexname") oder Worksheets("Indexname") eingebettet ist
Beispiel: Sheets("Übersicht").Select
den Codenamen kann man nur direkt im Code verwenden
Beispiel: Tabelle1.Select
wenn man Tabellenblattnamen berechnen will bspw aus mehreren Teilen zusammensetzen möchte, dann geht das nur über den Indexnamen.

das hier funktioniert:
dim x as String

x = "Über" & "sicht"
Worksheets("x").Select

das hier ist falsch:
dim x as String

x = "Tabelle" & "1"
x.Select


ich hoffe mal, das hilft dir deinen Code selbst zu korrigieren, da er an mehreren Stellen fehlerhaft ist und du die Prinzipien "Codename" und "Indexname" durcheinanderwirfst.

Gruß Daniel
AW: ungültiger Bezeichner - korrektur
daniel
mit Variablen natürlich so:

dim x as String

x = "Über" & "sicht"
Worksheets(x).Select