Select Case ... Sheet.CodeName
Peter
Guten Tag
Ich möchte, dass ein Code nur ausgeführt wird, wenn der Tabellen-Codename Tabelle01, Tabelle02, Tabelle03, .... oder Tabelle25 ist.
Auf Codename greiffe ich zurück, da die Tabellennamen gelegentlich angepasst werden (ohne dass der Inhalt ändert).
Das versuche ich mich Select Case ab, funktioniert jedoch nicht. Ich vermute, dass die Zeile Select Case Seheet.CodeName geändert werden muss, da letztlich eine Zahl verglichen wird.
Aber was muss dort stehen?
Gruss, Peter
Sub Doppelte_anzeigen()
Dim strAnzeige As String
Dim Sheet As Worksheet
Set Sheet = ActiveSheet
With ActiveSheet
Select Case Sheet.CodeName
Case Right(Sheet.CodeName, 2) * 1