in Calc bin ich über ein sehr umständliches Verhalten gestolpert, da wo eine Zelle einen direkten Verweis auf eine andere Zelle enthält
ich such nach einer Möglichkeit per shortcut zu der Zelle und wieder zurüch zu gelagen.
viewtopic.php?f=2&t=28464
wobei Karolus schon einen Ansatz zu einer Basic-Lösung aufgezeigt hat nur bin ich zu blöd da weiter zumachen....
Code: Alles auswählen
sub link_to_source
sstring = thiscomponent.currentselection().formula
lstring = right (sstring, len(sstring)-1)
rem define variables
dim document as object
dim dispatcher as object
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = lstring
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
end subnun hätte ich das gern noch etwas erweitert
kann sich das Makro vielleicht zwei Adressen merken, 1. wo es her kam und 2. wo es hin soll und
beim zweiten aufruf shortcut in der ZielAdresse zur 2.Adresse zurück hüpft, also dahin wo es her kam und dann die gemerkten ZellAdressen löscht
und wenn beim zweiten shortcut, aktuelle Adresse und 2.gemerkte Adresse nicht =, dann beide Adressen löschen
hat da wer Zeit mir als StarBasic DAU mal etwas intensiver zu helfen ?
schon mal Danke voraus
