Office: (Office 2010) FollowHyperlink

Frithjiof · 7. Januar 2021

Hallo J.D.

von J.D

das ist ja der witz, eben nicht... unten im Debug wird die Url richtig angezeigt und es kommt download fehlgeschlagen, sodass es wirklich nur an der Codierung liegen kann!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nein, ich hab's jetzt probiert. Der Fehler taucht auf wenn kein Telefonbucheintrag gefunden wird.

Hier meine Testprozedur.

Code:

Sub Test()
On Error GoTo suberr
Dim strURL As String
Dim sName As String
Dim sOrt As String
sName = "Heinz LLer"
sOrt = "Oberhausen"

strURL = "http://www.dastelefonbuch.de/Personen/" & sName & "/" & sOrt
Application.FollowHyperlink strURL
Exit Sub
suberr:
If Err.Number = 8 Then
MsgBox "keinen Eintrag gefunden"
strURL = "Das Telefonbuch >> Mehr als Adressen und Telefonnummern!" ' Telefonbuch aufrufen
Err.Clear
Resume
End If

MsgBox Err.Number & Err.Description
Err.Clear
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das geht einwandfrei.

Versuch's mal mit

sName= trim(nz(Me!KundenName,""))
sOrt = trim(nz(Me!Kunden_Ort,""))

Frithjof

J.D · 16. November 2017

Hi Frithjof,
Erst mal recht herzlichen Dank...
Ich habe das mal so übernommen...

Grüsse j.d

Office: (Office 2010) FollowHyperlink

FollowHyperlink

FollowHyperlink

FollowHyperlink - Similar Threads - FollowHyperlink

Öffnen einer bestimmten Seite einer pdf-Datei

pdf-Datei via FollowHyperlink öffnen