Seite 1 von 1
Calc: mit Link unterlegten Text extrahieren / zeilen löschen
Verfasst: Do, 02.06.2011 15:09
von 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
Re: mit Link unterlegten Text extrahieren / zeilen löschen
Verfasst: Do, 02.06.2011 15:40
von 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
Re: mit Link unterlegten Text extrahieren
Verfasst: Do, 02.06.2011 16:29
von POMF=3
Karolus hat geschrieben: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?
Re: mit Link unterlegten Text extrahieren / zeilen löschen
Verfasst: Do, 02.06.2011 17:35
von 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
Re: mit Link unterlegten Text extrahieren / zeilen löschen
Verfasst: Do, 02.06.2011 17:54
von POMF=3
Karolus hat geschrieben: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