OpenOffice.info

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

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

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

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

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


Gruß
Stephan

[quote="diamondialis"]warum war ich denn gesperrt?[/quote]
Spam-Verdacht - bei dem Namen 8)
(Hatte übersehen, dass Du als "Gast" schon unter dem Nick gepostet hattest; Entschuldige die Unannehmlichkeit)

[quote="komma4"]Habe Deinen Account wieder freigeschaltet - Viel Spass im Forum![/quote]
Oh, danke... warum war ich denn gesperrt? >,<

[quote="diamondialiss"]Hmm... aus irgendeinem Grund kann ich mich nicht mehr anmelden... Ich gebe die Benutzerdaten ein, klicke auf Anmelden... aber es passiert nichts...[/quote]

Habe Deinen Account wieder freigeschaltet - Viel Spass im Forum!

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

Weise allen Schaltflächen folgendes Makro zu:

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

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


Gruß
Stephan