Seite 1 von 1
Zwischen geteilten Fenstern springen
Verfasst: Mi, 04.07.2012 10:56
von 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
Re: Zwischen geteilten Fenstern springen
Verfasst: Mi, 04.07.2012 11:27
von 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
Re: Zwischen geteilten Fenstern springen
Verfasst: Mi, 04.07.2012 14:07
von Karolus
Hallo
Kann es sein, das du mehrere Sätze/Teilsätze meiner Antwort gar nicht gelesen hast ?
Karo
Re: Zwischen geteilten Fenstern springen
Verfasst: Mi, 04.07.2012 16:24
von 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
Re: Zwischen geteilten Fenstern springen
Verfasst: Do, 05.07.2012 10:12
von 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