bis vor Wochen funzte das Makro und ich konnte gewünschte Links von der Webseite in mein Sheet einfügen. Nun geht es nicht mehr und ich weis nicht warum.
Ich hatte zwischendurch nach der Zeile "objXMLHTTP.send" folgendes eingetragen:
If objXMLHTTP.Status > 200 Then
MsgBox "Fehler beim Abrufen der Seite. Status: " & objXMLHTTP.Status
Exit Sub
End If
daraufhin die Meldung: "Fehler 403"
https://www.herber.de/bbs/user/162938.xlsb
Kann ein Experte mal drauf schauen und mir eventuell eine Lösung anbieten?!
Gruss
Fred