Mit meinem Code will ich sicherstellen, dass der Code nur abläuft, wenn die aktive Tabelle ein Name wie "0101" oder "0313" etc. hat (sobald der Tabellenname ein Buchstabe oder ein anderes Zeichen enthält, resp. die Zahlenfolge "0000" oder "0100", darf der Code nicht weiterlaufen).
"0101" oder "0313" sind wohl Zahlenstrings und sind daher nicht numerisch, können also nicht mit IsNumeric abgefragt werden. Ich sah erst kürzlich in einem Beitrag, dass geprüft werden kann, ob der String auch eine Zahl ist, habe das jedoch nicht mehr gefunden. Wer kann mir weiterhelfen?
Gruss, Peter
Sub Check()
Dim Ash as String
ASh = ActiveSheet.Name
Select Case ASh
Case IsNumeric(ASh) And ASh "0000" And ASh "0100"
Case Else
MsgBox "Aktion in Tabelle " & ASh & " nicht durchführbar."
End
End Select
End Sub