Seite 1 von 1
Makro - auf Tabellenblatt springen
Verfasst: Fr, 07.12.2007 08:30
von 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!
Re: Makro - auf Tabellenblatt springen
Verfasst: Fr, 07.12.2007 09:25
von 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
Re: Makro - auf Tabellenblatt springen
Verfasst: Fr, 07.12.2007 11:00
von 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.
Re: Makro - auf Tabellenblatt springen
Verfasst: Fr, 07.12.2007 11:21
von 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