LibreOffice-Forum

Hallo zusammen,

in meiner Calc-Zelle "A1" steht z.B. "D:/Bastelarbeiten"

Wie kann ich diesen Zelleninhalt, den ich mit getCellbyPosition(0,0).string
auslesen kann in eine Hyperlinkadresse umwandeln?

Von Hand kann ich z.B. in Zelle "B1" folgendes schreiben "=Hyperlink(A1)"
Dann ist in der Zelle B1 eine Sprunganweisung mit dem Inhalt von "A1" hinterlegt.

Das habe ich im Makro mit "getCellbyPosition(1,0).hyperlink = getCellbyPosition(0,0).string"
versucht. ---> funktioniert nicht.

Der im Forum gemachte Vorschlag:
Tabelle.getCellbyPosition(4,i).formulaLocal = "=HYPERLINK("+Tabelle.getCellbyPosition(1,i).string+")"
bringt bei mir den Fehler 508

Gerade jetzt habe ich eine Lösung für mein Problem gefunden.
Tabelle.getCellbyPosition(4,i).formulaLocal = "=HYPERLINK("+Tabelle.getCellbyPosition(1,i).AbsoluteName+")"
ergibt den gesuchten Hyperlink!!

Vielleicht kan eine/r eine elegantere Lösung anbieten?

Mit Gruß
Werner

Hallo
hätte es auch getan

Mit →Suchen und ersetzen geht das auch völlig ohne Makrogewurstel

die gewünschten Zellen selektieren:
→suche nach ^.*$
ersetzen durch: =HYPERLINK("&")
mit den Optionen: [x]regulärer Ausdruck und [x]nur in Selektion
→→ersetze alle

Hallo karolus,

stimmt, letztlich bin ich aud folgende Schreibweise gestoßen:

Tabelle.getCellbyPosition(1,i).formulaLocal = "=HYPERLINK("+chr(34)+ConvertFromURL(sName)+chr(34)+")"

Danke für Deine Antwort.

Gruß Werner