Makro - auf Tabellenblatt springen

[stommy7]

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!

[Karolus]

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

[stommy7]

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.

[Karolus]

Hallo stommy
Ich hab mal etwas aufgezeichnet und noch etwas drumherum-gestrickt:

Code: Alles auswählen

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

hilft dir das ?

Gruß Karo