Zeile eines geklickten Buttons ermitteln

[conny64]

ich habe in jeder zeile einen Button welcher eine Url mit einem Parameter aufrufen soll.
Der Parameter steht in der selben Zeile wie der Button.
Irgendwie schaffe ich es nicht die aktuelle Zeile des geklickten Buttons zu ermitteln

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

[mikele]

Hallo,
es wäre einfacher, wenn du anstelle der Button die Funktion HYPERLINK() nehmen würdest, z. B. in B2

Code: Alles auswählen

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

[conny64]

Hallo Mikele,

ich habe es damit erst mal verwirklicht. Danke !!!
Allerdings ist es nicht ganz so User freundlich, da wenn in den Sicherheitseinstellungen der Schalter nicht
rausgenommen wird man immer mit CTRL+ENTER dieses aktivieren muss

Wenn du Lust hast, kannst du dir das fertige Script mal anschauen:
https://www.dl2fbo.de/map/download/AFU-Logbuch_0.2.ods