ich habe ein UserForm erstellt, mit welchem ich Daten aus Spalte A in ein Webformular eintrage. Die einzelnen manuellen Schritte funktionieren auch tadellos, doch kann ich keinen gewünschten Timeout (mit Wait) einbauen und auch die Schleife bekomme ich nicht wirklich hin. Hierbei soll das Skript so lange automatisch die einzelnen Schritte durchlaufen, bis die Spalte A keine Daten mehr enthält.
Folgenden Code habe ich aktuell:
Option Explicit
Sub CommandButton1_Click()
WebBrowser1.Navigate "Webseite XYZ" 'URL aufrufen
End Sub
Sub CommandButton2_Click()
WebBrowser1.Document.forms(0).elements("Datenfeld").Value = Worksheets("Tabelle1").Range("A1") 'Daten eingeben
End Sub
Sub CommandButton3_Click()
SendKeys ("{TAB 5}")
SendKeys ("(ENTER 1)")
End Sub
Sub CommandButton4_Click()
Rows("1:1").Select
Selection.Delete Shift:=xlUp
CommandButton1.Value = True
End Sub
Sub CommandButton5_Click()
End Sub
Private Sub UserForm_Click()
End Sub
Folgende Schritte werden erledigt:CommandButton1 - Webseite wird geladen
CommandButton2 - Wert aus A1 wird in Datenfeld geschrieben
CommandButton3 - Submit Button wird gedrückt
CommandButton4 - A1 inklusive Zeil1 wird gelöscht; zudem Webseite Neu geladen
Mit CommandButton5 möchte ich nun eine automatisierte Lösung bieten. Es sollen die Schritte der Button 2, 3 und 4 nacheinander ausgeführt werden mit einem Timeout von jeweils 1 Sekunde und dies solange bis Spalte A leer ist.
Habt ihr nen Ansatz? Mit Wait etc. komme ich hierbei beispielsweise nicht recht weiter. Vielen lieben Dank