Cursor beim Verlassen auf Zelle x

[mathiu9]

Hallo dies sind meine erste Gehversuche.
Mehrere Tabellen in der Logfile gespeichert sind.
Nun mein Wunsch: beim verlassen der Tabelle-A auf Tabelle-B
soll der Cursor von Tabelle-A auf Zelle A1 gehen.
Hoffe das ihr mir ein Anhaltspunkt/Vorlage geben könnt.
Aktion zuweisen - Inhalt geändert - Makro

[Roland1]

Hallo,

den Curser auf die Zelle klicken. dann speichern.
Dann ist er nach dem öffnen wieder dort.

[mathiu9]

Danke Roland1
Ja das geht, doch es löst meine Situation nicht.
In dem Moment wo andere das Dokument verarbeiten und anschliessend speichern, verändert sich die Position
des Cursor. Und da liegt mein Problem: Unabhängig der Veränderungen soll der Cursor sich immer wieder z.B.:
auf Tabelle1, Zelle C1 sich positionieren.

[mikele]

Hallo,
es lässt sich (nur) per Makro lösen.

Code: Alles auswählen

Sub Main 
	
	oDoc=ThisComponent
	oDoc.CurrentController.Select(oDoc.Currentselection.Spreadsheet.getcellbyposition(2,0))
	oDummy=oDoc.createInstance("com.sun.star.sheet.SheetCellRanges")
	oDoc.CurrentController.Select(oDummy)
	
End Sub

Diese Makro wird an das Tabellenereignis "Dokument aktivieren" der gewünschten Tabelle (Rechtklick auf den Tabellen-Tab -> Ereignisse) gebunden.
Jedes mal wenn die Tabelle nun aktiviert wird, ist die Zelle C1 angewählt.

[F3K Total]

Moin,
wenn du auf jedem Tabellenblatt in die Zelle A1 den Namen der Zelle schreibst, die du auf dem aktuellen Blatt anspringen möchtest und folgendes Makro an das Tabellenereignis Dokument aktivieren bindest, sollte es klappen.

Code: Alles auswählen

Sub jump_to_startcell
    oSheet = ThisComponent.CurrentController.activeSheet
    sCellName = oSheet.getCellRangebyName("A1").String'Lies den Namen der ZielZelle aus
    oCell = oSheet.getCellRangebyName(sCellName)
    ThisComponent.CurrentController.Select(oCell)
    oDummy = ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges")
    ThisComponent.CurrentController.Select(oDummy)    
End Sub

Beispiel anbei.

Gruß Rik

EDIT: 17:40 Mikele war schneller, seine Idee mit dem "dummy" finde ich gut, habe ich noch mit eingebaut.

[mathiu9]

VIELEN DANK EUCH ALLEN
Werde euch morgen informieren.

[mathiu9]

@F3K Total
Yee... SUPER Freude Kuchen
Nochmals DANKE AN ALLE!!