Ich brauche Hilfe. Ich versuche, ein VBA-Skript zu schreiben, das den Wert in Spalte A auf ein Online-Formular in einem Eingabeelement ohne ID, aber mit dem Namen ("OldUrl") überträgt. Dann würde das VBA-Skript den Wert in der benachbarten Zelle in Spalte B nehmen und diesen in der gleichen Form ("digiSHOP") in das Eingabefeld mit dem Namen ("NewUrl") einfügen.

Das Formular befindet sich auf einem sicheren Server. Ich bin jedoch soweit gekommen, dass sich das Fenster öffnet und das Formular ausgewählt wurde. Ich habe Probleme, einen Weg zu finden, um das Eingabefeld anzuvisieren, da sie keine ID haben. Unten ist mein Code und ich danke Ihnen für Ihre Hilfe.

Sub Redirect()
Dim IE As Object
Dim doc As Object
Dim form As Object
Dim OldURL As Object
Dim NewURL As Object

Set IE = CreateObject("InternetExplorer.Application")

With IE
    .Visible = True
    .Navigate "https://...."

    Do Until .ReadyState = 4: DoEvents: Loop

    Set doc = IE.Document
    Set form = doc.forms("digiSHOP")
    Set OldURL = doc.getElementById("OldUrl")'Error occurs here. Element has no ID
    OldURL.Value = Range("A2")
    Set NewURL = doc.getElementById("NewUrl")
    NewURL.Value = Range("B2")
    form.submit

    Do Until .ReadyState = 4: DoEvents: Loop
    Do While .Busy: DoEvents: Loop

    End With
End Sub

Ich war mir auch nicht sicher, wie ich die gesamte Spalte ansteuern und schleifen sollte, daher wird der Wert auf die Zelle A2 gesetzt. Dies war mehr, um das Skript zu testen.