OpenOffice.info

Sub hyperlinken
ilink = thiscomponent.currentselection().string
olink =  ilink & ".A1"
sprungziel(olink)
End Sub


function sprungziel(ziel)
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
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 = "Bookmark"
args1(0).Value = ziel
dispatcher.executeDispatch(document, ".uno:JumpToMark", "", 0, args1())
end function

Hallo stommy
Ich hab mal etwas aufgezeichnet und noch etwas drumherum-gestrickt:
[code]Sub hyperlinken
ilink = thiscomponent.currentselection().string
olink = ilink & ".A1"
sprungziel(olink)
End Sub


function sprungziel(ziel)
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
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 = "Bookmark"
args1(0).Value = ziel
dispatcher.executeDispatch(document, ".uno:JumpToMark", "", 0, args1())
end function[/code]

hilft dir das ?

Gruß Karo

Danke das funkioniert zwar, aber ich brauchs definitiv als Makro, da ich danach in dem Makro weiterarbeiten möchte und noch einige Zellen kopiere und einfüge.
Ich brauche also diese Hyperlink funktion definitiv als Makro.

Hallo stommy

Dafür brauchst du kein Makro.
Benutze die Funktion HYPERLINK.
falls in A1 der Tabellenname steht, schreib in B1 die Funktion:
=HYPERLINK("#"&A1&".A11";"Sprungziel Blatt "&A1)
Bei einem Klick auf B1 wechselst du nun ins Blatt das du in A1 angegeben hast.

Gruß Karo

Hallo!

Ich habe ein kleines Makro aufgezeichnet. Ich habe 3 Tabellenblätter "A", "B" und "C".

In A1 auf Blatt "A" steht einer der drei Buchstaben. Ich möchte nun, dass beim durch das Makro das Tabellenblatt aktviert wird, dessen Buchstabe in A1 steht. Kann mir da bitte jemand weiterhelfen?

Danke!