LibreOffice-Forum

Code: Alles auswählen

Sub OpenURLWithParameter
    Dim oSheet As Object
    Dim oCell As Object
    Dim sBaseURL As String
    Dim sParameter As String
    Dim sFinalURL As String
    Dim oShell As Object
    Dim nRow As Integer ' Die Zeilennummer der aktuellen Zelle
    
    oSheet = ThisComponent.CurrentController.ActiveSheet
    
    ' Die Zeilennummer der aktuellen Zelle
    oCell = ThisComponent.CurrentSelection
    nRow = oCell.RangeAddress.StartRow
    
    ' Die Basis-URL, die aufgerufen werden soll
    sBaseURL = "https://www.xxx.com/map/index.php?" ' Beispiel: Basis-URL
    
    ' Den Parameter aus der Zelle in der nächsten Zeile holen
    oCell = oSheet.getCellByPosition(0, nRow) 
    
    ' Überprüfen, ob die Zelle nicht leer ist, bevor der Parameter geholt wird
    If oCell.getString() <> "" Then
       
        ' Die endgültige URL mit dem Parameter zusammenstellen
        sFinalURL = sBaseURL & "param=" & sParameter ' Beispiel: "https://www.example.com/page?param=WertAusZelle"
        
        ' URL aufrufen
        oShell = CreateUnoService("com.sun.star.system.SystemShellExecute")
        oShell.execute(sFinalURL, "", 0)
    Else
        MsgBox "Die Zelle ist leer."
    End If
End Sub

Code: Alles auswählen

=HYPERLINK("https://www.example.com/page?param=" & A2;"Hier klicken")