Wert aus einem Feld in ein Makro übernehmen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Wert aus einem Feld in ein Makro übernehmen

Re: Wert aus einem Feld in ein Makro übernehmen

von F3K Total » Sa, 15.10.2011 23:18

Wenn sich dein "L1" auf Tabelle1 befindet, so:

Code: Alles auswählen

sub Jump_to_Table
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
osheet=thisComponent.sheets(0)
ocell=osheet.getcellrangebyname("L1")
oTable=ocell.value 'Wert aus L1 auslesen

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value = oTable'Wert aus L1 verwenden

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
end sub
oder in nicht aufgenommener Kurzform:

Code: Alles auswählen

Sub Jump_to_Table
otable = thiscomponent.sheets(0).getcellrangebyname("L1").value
thiscomponent.currentcontroller.ActiveSheet = thiscomponent.sheets(otable-1)
End Sub
Gruß R

Nach oben