Zwischen geteilten Fenstern springen

[delta9]

Hallo,
in Calc kann man ja Fenster teilen. Wie erreiche ich nun, dass ich per Makro den sichtbaren Cursor auf eine Zelle in einem bestimmten "Fenster" richte.
Also ich kliche z.B. auf eine Schaltfläche in der oberen Anzeige, dann wird unten eine bestimmte Stelle des Blattes angezeigt, oben bleibt die Anzeige aber gleich.
Habe keine Ahnung nach welchen Stichworten ich hier suchen könnte.
Stefan

[Karolus]

Hallo

ThisComponent.CurrentController.select( andere_zelle )
ist wohl das wonach du suchst.... aber deine bisherige Selection wird dadurch natürlich aufgehoben.

Beschreib doch mal was du eigentlich erreichen willst ( und nicht auf welchem Weg du dir vorstellst es zu lösen )

Karo

[Karolus]

Hallo

Kann es sein, das du mehrere Sätze/Teilsätze meiner Antwort gar nicht gelesen hast ?

Karo

[Karolus]

Hallo
Das ist alles ?
Dazu musst du nichts programmieren, das erreichst du wahlweise per →Einfügen →Hyperlink .... oder der Calcfunktion =Hyperlink(...)

ps. und →Fenster→[x]Teilen ersetze mit →Fenster→[x]Fixieren

Karo

[delta9]

Ja! Das mit dem Fixeren war der entscheidende Tipp. Den Rest habe ich dann mit Makros erledigt, weil bei der Verlinkung die verlinkte Zelle zwar angezeigt, aber nicht genau oben im Fenster positioniert wird.
Stefan

Code: Alles auswählen

sub zeile100
'*************************
' Einsprung für Makro-Schaltfläche
' Schiebt das sichtbare Fenster so, dass es mit der Zeilennumer 100 beginnt
'*************************
setze_Zeile(100)
end sub


sub zeile200
'*************************
' Einsprung für Makro-Schaltfläche
' Schiebt das sichtbare Fenster so, dass es mit der Zeilennumer 200 beginnt
'*************************
setze_Zeile(200)
end sub


sub setze_Zeile(zeilennummer)
'*************************************
' Schiebt das sichtbare Fenster so, dass es mit der Zeilennumer beginnt
'*************************************
SetzeSichtcursor("A1000") 'muss in das "untere" Fenster springen, sonst klappt es nicht
                          ' un möglichst weit weg, dann sieht man sie nicht schwarz hinterlegt  
oViewController = ThisComponent.getCurrentController()
oViewController.setFirstVisibleRow(zeilennummer-1) 
end sub


Sub SetzeSichtcursor(Zellname)
'*************************************
' Aktiviert die Zelle als sichtbar markiert
'*************************************
Blatt =  ThisComponent.CurrentController.ActiveSheet
oRange = Blatt.getCellRangeByName(Zellname)
ThisComponent.getCurrentController.select(oRange)
End Sub