Hallo zusammen,

ich hänge an einem Problem. Ich habe ein Makro, dass von einer Webseite in Zelle A1 in meiner Tabelle1 auf eine Webeite zugreift und dort im QR-Code Felt den Link aus B1 einfügt, um dann die Datei per "speichern unter" runter zu laden. Alles was man so manuell machen würde.

Es gelingt mir aber nicht eine Schleife zu erstellen, dass ich mehrere Links untereinander in die Excel schreiben kann, sodass ich bei Bedarf z. B. Links hintereinander zu QR-Codes speichern und runterladen könnte.

Kann mir da jemand weiterhelfen? Vielen Dank schonmal.

Hier der Code:

Sub url()

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

url_name = Tabelle1.Range("A2") 'www.terryburton.com
gtin = Tabelle1.Range("B2")

If url_name = "" Then Exit Sub

IE.navigate (url_name)

Do
DoEvents
Loop Until IE.ReadyState = 4

IE.Document.all("data").Value = (gtin) 'Wert aus B1 in Feld "Contents"
    
Application.Wait Now + TimeSerial(0, 0, 5) '5 Sekunden Seitenaufbau inkl. einpflegen B1

IE.Document.all("encoder").Value = ("qrcode") 'Dropdown umschalten auf QR Code
Application.Wait Now + TimeSerial(0, 0, 3) '3 Sekunden Timeout

Set AllHyperLinks = IE.Document.GetElementsByTagName("A") 'Contents Inhalt verwenden

    For Each hyper_link In AllHyperLinks
        
        If IE.Document.all("submitbtn").Value = "Make Barcode" Then 'button "Make Barcode" ansteuern
            IE.Document.all("submitbtn").Click
            Application.Wait Now + TimeSerial(0, 0, 3)
                IE.Document.GetElementByID("pnglink").Click 'PNG ansteuern
                Application.Wait Now + TimeSerial(0, 0, 3)
                Application.SendKeys "%{S}" 'speichern unter für den Download
            Exit For
        End If
    
    Next
    
    MsgBox "Fertig"

End Sub