OpenOffice.info

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

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]

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

[/code]

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

ps. und →Fenster→[i][x]Teilen[/i] ersetze mit →Fenster→[b][x]Fixieren
[/b]
Karo

Hallo

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

Karo

Hallo

[color=#008000]ThisComponent.CurrentController.select( andere_zelle )[/color]
ist wohl das wonach du suchst.... aber deine bisherige Selection wird dadurch natürlich aufgehoben.

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

Karo

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