basic-übersetzung ( ungeprüft! )Python bringt halt nicht jeder gleich zum Laufen.
Code: Alles auswählen
sub extract_URL_inplace
doc = thisComponent()
sheet = doc.Sheets.getByName("Tabelle1")
for each cell in sheet.queryContentCells(512).Cells
on Error resume next
cell.String = cell.TextFields.getByIndex(0).URL
