Hallo,
ich leide mal wieder an Gedächtnisschwund.
Die Sheetbenennung im VBA
Sheets("Tabellenname").Visible = True
Sheets("Andere").Visible = False
Wenn nun jemand den Tabellennamen ändert,gibts logischerweise ein Error.
Wie spreche ich die Sheet ohne den Tabellennamen an ?
Egal ob Namensänderung stattfindet, wird immer die entsprechende Tabelle
angesprochen. Ich habs mal gewusst, aber…
Kann mir da wer helfen?
Gruß Peter
hi Peter,
so z.B. :
sheets(1)
mach dir mal ein kleines Zettelchen 
cu Micha
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Fast
hi Peter,
so z.B. :
sheets(1)
Hallo ypsilon,
fast, fast. Soweit war ich auch, aber:
Hier spielt die Reihenfolge von links nach rechts eine Rolle.
Wenn zB. „Erste“(Tabelle1), „Zweite“(Tabelle2),„Dritte“(Tabelle3) usw.
jetzt anders sortiert werden („Zeite“,„Erste“,„Dritte“)funzt der
Quellcode nicht mehr. Ich möchte die Tabelle ansprechen, egal wie diese
benannt ist, und egal an wievielter Stelle diese steht.
Da gab’s mal was, da gab’s mal was…
Gruß Peter
Das gibts noch immer 
fast, fast. Soweit war ich auch, aber:
Hier spielt die Reihenfolge von links nach rechts eine Rolle.
Wenn zB. „Erste“(Tabelle1),
„Zweite“(Tabelle2),„Dritte“(Tabelle3) usw.
jetzt anders sortiert werden („Zeite“,„Erste“,„Dritte“)funzt
der
Quellcode nicht mehr. Ich möchte die Tabelle ansprechen, egal
wie diese
benannt ist, und egal an wievielter Stelle diese steht.
Da gab’s mal was, da gab’s mal was…
Hi Peter,
Sub tt()
Worksheets(3).[A1] = 5
Worksheets(2).[A1] = 6
Worksheets(1).[A1] = 7
MsgBox Tabelle1.[A1]
MsgBox Tabelle2.[A1]
MsgBox Tabelle3.[A1]
End Sub
gehe mal im Editor auf eine Tabelle, dann F4,
Name ist z.B. „Erste“, änderbar mit Name
(Name) ist Tabelle1, änderbar mit CodeName.
Gruß
Reinhard
hi Peter dann nimm den vba-namen (oder wird der auch geändert)
z.B. :
Tabelle1.Calculate
cu Micha
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Alles klar
Hallo,
Gedächtnis funktioniert wieder.
Ein Glück. Das Leben kann so einfach sein.
Tabelle1.Visible = True
Tabelle2.Visible = False
Gruß Peter
Dank an Euch
Hallo,
ihr seid zu schnell.
Gerade kam ich drauf, und da wars auch schon bestätigt.
Vielen Dank
Gruß Peter
Hallo Peter,
neben dem angezeigten Namen hat jedes Blatt auch einen CodeNamen, den man mE nur im VBA Editor oder halt per VBA ändern kann. Dieser ist demnach unverändert wenn das Sheet umbenannt wird und kann daher auch dann noch für den Zugriff genutzt werden. Ich meine mit diesem ist auch ein Zugriff:
meinCodeNaem.visible = true
möglich, (hab hier kein EXCEL) was sicherlich viel anschaulicher als die laufende Nummer ist.
mfg
Dirk.Pegasus