Macros für Tabellenblatt-Wechsel

[Stephan]

Weise allen Schaltflächen folgendes Makro zu:

Code: Alles auswählen

Sub Tabellenwechsel(quelle)
x = quelle.Source.Model.Label
blatt = ThisComponent.Sheets().getByName(x)
ThisComponent.CurrentController.setActiveSheet(blatt)
End Sub

Beachte das hierbei NICHT der Name der Schaltfläche ausgewertet wird sondern die sichtbare Beschriftung der SChaltfläche.


Gruß
Stephan

[komma4]

Hmm... aus irgendeinem Grund kann ich mich nicht mehr anmelden... Ich gebe die Benutzerdaten ein, klicke auf Anmelden... aber es passiert nichts...

Habe Deinen Account wieder freigeschaltet - Viel Spass im Forum!

[diamondialis]

Habe Deinen Account wieder freigeschaltet - Viel Spass im Forum!

Oh, danke... warum war ich denn gesperrt? >,<

[komma4]

warum war ich denn gesperrt?

Spam-Verdacht - bei dem Namen
(Hatte übersehen, dass Du als "Gast" schon unter dem Nick gepostet hattest; Entschuldige die Unannehmlichkeit)

[Stephan]

Wenn ich "label" abfragen kann, kann ich dann nicht auch den Namen also die Bezeichnung der Schaltfläche abfragen?

Ja sicher, und da Du ja bereits Makros geschrieben hast sollte es leicht sein eine so banale Änderung selbst herauszufinden:

Code: Alles auswählen

Sub Tabellenwechsel(quelle)
x = quelle.Source.Model.Name
blatt = ThisComponent.Sheets().getByName(x)
ThisComponent.CurrentController.setActiveSheet(blatt)
End Sub

(.Name ist hier im Übrigen der Name der Schaltfläche und nicht etwa der Name des 'Shapes der Schaltfläche'.)


Gruß
Stephan