Seite 1 von 1

Listener für das Wechseln von Tabellenblättern

Verfasst: Do, 03.04.2014 10:07
von LeneKai
Hallo
Ich such nach einer Möglichkeit, beim Wechsel von einem Tabellen Blatt zum anderen (Z.B. Wechsel von Tabelle1 zu Tabelle2)
das eine Listener Procedure abgefeuert wird. Der Listener sollte nur auf den Wechsel oder das Aktivieren von Tabellenblättern
reagieren.

Man könnte das auch u.a. mit fest eingestellten Tabellenereignissen machen. Fest eingestellte Tabellenereignisse
werden beim Kopieren von Tabellenblättern aber nicht mit kopiert.
Wenn mir einer eine Methode nennt, wie man die Tabellenereignisse beim Kopieren der Tabellenblätter mit kopiert (per Macro)
dann würde ich diese Lösung verwenden.


Moderation:
Duplikat dieses Themas gelöscht.
lorbass, Moderator

Re: Listener für das Wechseln von Tabellenblättern

Verfasst: Do, 03.04.2014 20:40
von F3K Total
Hi,
so geht's:

Code: Alles auswählen

global oaddActivationEventListener

Sub S_addActivationEvent
    oaddActivationEventListener = createUnoListener("ActivationEventListener_", "com.sun.star.sheet.XActivationEventListener")
    ocontroller = thiscomponent.currentcontroller
    ocontroller.addActivationEventListener (oaddActivationEventListener)
End Sub

Sub S_removeActivationEvent
    ocontroller = thiscomponent.currentcontroller
    ocontroller.removeActivationEventListener (oaddActivationEventListener)
End Sub

sub ActivationEventListener_activeSpreadsheetChanged(event)
    msgbox "Aktuell ist " & event.ActiveSheet.name
end sub

sub ActivationEventListener_disposing
end sub
Siehe Beispieldatei
Gruß R

Re: Listener für das Wechseln von Tabellenblättern

Verfasst: Do, 03.04.2014 21:05
von LeneKai
Danke für diesen Hinweis.
Diese Lösung habe ich gesucht.

Danke Danke Danke

Gruß
K