Hyperlinks funktionieren nicht
21.01.2022 15:35:25
Florian
ich baue mir mit folgendem Code einen Hyperlink zusammen, den ich auf eine Zelle schreibe. Wenn ich nun den Link anklicke, läuft dieser in der entsprechenden App auf einen Fehler, wird also nicht erreicht.
Wenn ich den Link händisch abtippe funktioniert es, er ist also korrekt.
Wenn ich den Link aus den Hyperlink-Eigenschaften kopiere und dann in eine Zelle in Excel einfüge, dann anklicke klappt.
Komischerweise tritt das Problem nicht bei allen Links auf.
Kann es sein, dass sich in dem String verborgene Zeichen oder sowas verbergen, die mir den Link "zerschießen"? Und falls ja, wie krieg ich die da raus oder erkenne, was das für Zeichen sind?
For lngAktuelleZeile = 3 To lngZeilenBuchungen
strBelegID = Replace(wksPruefen.Cells(lngAktuelleZeile, 30).Value, """", "")
strBelegID = Replace(strBelegID, "BEDI ", "")
If strBelegID "" Then
strLink= "www.meinewebapp.de/" & _
"KUNDE=" & tblStammdaten.Range("Kunde").Value & "&" & _
"APP=AUSWERTUNGEN&" & _
"ID=" & strBelegID & "&" & _
"NUMMER=" & tblStammdaten.Range("Nummer").Value
wksPruefen.Hyperlinks.Add anchor:=wksPruefen.Cells(lngAktuelleZeile, 2), Address:=strLink
wksPruefen.Cells(lngAktuelleZeile, 2).Interior.Color = RGB(255, 230, 153)
End If
Next lngAktuelleZeile
Anzeige