Befehl nur ausführen wenn Online
24.01.2021 20:36:02
Friedrich
ich habe ein Program in welches ich mittels VBA Bilder aus dem Intranet lade
ich verwende dazu golgenden Code
Set Userform1.Image1.Picture = LoadPicture(DownloadPicture(ThisWorkbook.Worksheets("Berechungen").Range("O2").Value))
(Die Adresse steht eben in O2)
Das funktioniert auch perfekt.
Habe ich kein Verbindung fange ich den Fehler mit folgendem Code ab
'
Public Function DownloadPicture(ByVal pvstrURL As String) As String
Dim lngReturn As Long
Dim avntTemp As Variant
avntTemp = Split(pvstrURL, ".")
DownloadPicture = Environ$("TEMP") & "\Temp." & avntTemp(UBound(avntTemp))
lngReturn = URLDownloadToFileA(0, pvstrURL, DownloadPicture, 0&, 0)
If lngReturn NO_ERROR Then
DownloadPicture = vbNullString
MsgBox "Kein Bildmaterial vorhanden"
End If
End Function
Meine Frage dazu. gibt es eine Möglichkeit das das Downloaden von Bildern nur durchgeführt wird wenn vorher gebrüft wird ob in der Tabelle1 Range A1 zb. die ziffer 1 steht. Wenn icht sollte das Downloaden einfach übersprungen werden
Vielleicht kann mit jemand weiterhelfen
Vielen Dank Fritz