Hyperlink in Tabellen

[CPP]

Hallo zusammen,
ich nutze LibreOffice Calc erst seid kurzem, habe bis jetzt Excel mit VBA genutzt und möchte auf Calc umsteigen.


In einer Tabelle „Termine.xlsm“ habe ich eine Schleife mit der ich alte Hyperlinks lösche, unter Calc erfolgt leider eine Fehlermeldung.

Hier die Schleife wie sie unter Excel funktioniert hat. Was muss ich änder damit sie in Calc auch klappt?

Do Until ActiveCell.Value = ""
' Selection.Hyperlinks.Delete
ActiveCell.Hyperlinks.Delete
ActiveCell.Offset(1, 0).Select
Loop ' Ende Schleife Hyperlink löschen

Fehlermeldung:

ActiveCell.Hyperlinks.Delete.jpg (16.59 KiB) 3977 mal betrachtet

Lieben Gruß CPP

[Karolus]

Hallo

Achtung python

Code: Alles auswählen

def remove_hyperlinks(*_):
    doc = XSCRIPTCONTEXT.getDocument()
    sel = doc.CurrentSelection    
    links = sel.queryContentCells(512)
    if links:
        for cell in links.Cells:
            for field in cell.TextFields:
                field.URL = ""
                field.Representation = ""

Als VBA-profi bist du sicher in der Lage, vorher die Tastaturkombi strg+shift+↓ zu drücken