Office: Aktives Tabellenblatt abfragen

Hallo Forumsgemeinde,

bastle gerade an einem Stundenerfassungsprogramm. Dieser "Stunden.xls" habe ich eine eigene Symbolleiste angebunden.
Einige Schalter dieser Symbolleiste können nur in den Tabellen von Januar bis Dezember mit den einfachen Tabellennamen "1" bis "12" genutzt werden.
Um sicherzustellen, dass der User bei Betätigen dieser speziellen Schalter sich auch in einem Tabellenblatt von 1 bis 12 befindet, möchte ich dies abfragen.

Ein einzelnes Tabellenblatt krieg ich noch hin:
Sub test()
If ActiveSheet.Name = "1" Then
MsgBox "ok"
Else
MsgBox "Funktion steht hier nicht zur Verfügung"
End If
End Sub

Nun möchte ich aber die Tabellen "1" bis "12" abfragen, vermutlich in einer Schleife...

Ich bekäme das sicher auch noch hin mit einem ellenlangen oder(Or)-Code.
Da gibt es doch sicher eine elegantere Lösung.
Bin in VBA nicht so das Ass, kriege das nicht hin.
Für Hilfe wäre ich dankbar.

Gruß
waterman5

:)

 

Hallo waterman5,

probiers mal so:

Code:

Hoffe es hilft dir weiter

 

Hi Knee,

danke für die schnelle Antwort.
Will aber nicht funktionieren, beim tabellenblatt "1" kommt die Box mit OK, dann aber auch die Box aus Else "Funktion ...."
Tabellen 2 , 3 usw. werden erst gar nicht erkannt, kommt sofort die Box "Funktion..."

Vermute mal, dass das 1 to 12 in der For-Schleife nicht erkannt wird.

Kannst du da vielleicht noch etwas nachhelfen ?

Gruß
waterman5

 

Hallo waterman5,

ich hätte vorher mal testen sollen.

Code:

 

Hi Knee,

danke nochmals, wir kommen der Sache schon näher...

Die Tabellenblätter 1 bis 12 werden erkannt, sofern ich eines davon aktiviert habe.
Befinde ich mich aber zum Beispiel im Tabellenblatt "Tabelle13" und führe den Code aus, erhalte ich den Laufzeitfehler 13 "Typen unverträglich" und die erste Zeile deines Codes wird markiert.
Kannst du nochmal nachhelfen, dass bei ausführen des codes aus einem anderen tabellenblatt auch erkannt wird, dass man sich nicht in 1 bis 12 befindet.

Schon mal danke für deine Bemühungen.

Gruß
waterman5

 

Hallo waterman5,

der Fehler kommt vom CInt, dass den Tabellennamen in einen Zahlenwert umwandelt. Das geht natürlich nur, wenn keine Buchstaben vorkommen.

Folgendes sollte funktionieren:
Code:

 

Hi Knee,

vielen Dank nochmal für die Hilfe.

Mit Einbau von "On Error GoTo ... usw." funktioniert es.

Vielleicht hat jemand noch weitere Ideen, zumal ich nicht weiß, ob dieser Code in Excel 2000 oder Excel XP funktioniert, wäre zumindest interessant zu wissen.

Gruß
waterman5

 

Also in Excel 2000 auf jeden Fall.