Listener für das Wechseln von Tabellenblättern

[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

[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

[LeneKai]

Danke für diesen Hinweis.
Diese Lösung habe ich gesucht.

Danke Danke Danke

Gruß
K