Calc: mit Link unterlegten Text extrahieren / zeilen löschen

[POMF=3]

hallo,

(der Einfachheit halber ein Screenshot im Anhang um zu erklären, was ich erreichen möchte)
Das Problem ist, dass ich die Einträge von Spalte A auf Hyperlinks untersuchen möchte.
Anschließend soll ausschließlich der Text unter dem ein Link liegt nach Spalte B kopiert werden.
Um die so entstehenden doppelten Einträge zu entfernen habe ich bereits ein Makro, aber wie geht das mit den Links/ geht das überhaupt?



Moderation,4: offensichtliche BASIC-Frage in's zuständige Unterforum verschoben; Betreff angepasst

[Karolus]

Hallo
Möchtest du wirklich nur den angezeigten Text der Hyperlinks oder soll es der ganze Hyperlink sein, wie die Ansicht der Spalte B deines Screenshots vermuten lässt ?

Ausgehend vom Zellobjekt kommst du an den angezeigten Text eines Hyperlinks mit .getTextfields().getbyIndex(0).representation

Gruß Karo

[POMF=3]

Hallo
Möchtest du wirklich nur den angezeigten Text der Hyperlinks oder soll es der ganze Hyperlink sein, wie die Ansicht der Spalte B deines Screenshots vermuten lässt ?

Ausgehend vom Zellobjekt kommst du an den angezeigten Text eines Hyperlinks mit .getTextfields().getbyIndex(0).representation

Gruß Karo

nur den Text
dank dir für deine Hilfe, allerdings habe ich ehrlich gesagt so wirklich gar keine Ahnung wenn es um Basic geht .
was mache ich mit dem .getTextfields().getbyIndex(0).representation?

[Karolus]

Hallo
Etwa so:

Code: Alles auswählen

Sub hyperlinktext_extrahieren
osheet = thiscomponent.sheets(0) '1.Tabellenblatt
for i = 0 to 9 'index 1. bis 10.Zeile
	if osheet.getcellbyposition(0, i).getTextfields().count then
		htext = osheet.getcellbyposition(0, i).getTextfields().getbyIndex(0).representation
		osheet.getcellbyposition(1, i).string = htext
	end if
next
End Sub

Gruß Karo

[POMF=3]

Hallo
Etwa so:

Code: Alles auswählen

Sub hyperlinktext_extrahieren
osheet = thiscomponent.sheets(0) '1.Tabellenblatt
for i = 0 to 9 'index 1. bis 10.Zeile
	if osheet.getcellbyposition(0, i).getTextfields().count then
		htext = osheet.getcellbyposition(0, i).getTextfields().getbyIndex(0).representation
		osheet.getcellbyposition(1, i).string = htext
	end if
next
End Sub

Gruß Karo

du ahnst ja gar nicht, wie sehr du mir damit geholfen hast
dank dir