Hey Leute ich habe ein Problem mit dem Warten auf den internet explorer.

Er scheint einfach nicht zu warten bis er die Seite geladen hat, sondern geht einfach weiter und das skript ist durch und der ie lädt noch.

ich habe win 10 und microsoft edge als browser über den ich das mache.

mein code:

'Suche
    InternetExplorer.document.getelementbyid("std_suchwort").Value = WorkbookQuelle.Sheets("Sheet1").Cells(Zeile, name).Value
    InternetExplorer.document.getelementbyid("std_ort").Value = WorkbookQuelle.Sheets("Sheet1").Cells(Zeile, plz).Value
    
    Set objCollection = InternetExplorer.document.getelementsbytagname("input")
    i = 0
    Do While i < objCollection.Length
        If (objCollection(i).Type = "submit" And objCollection(i).name = "") Then
        Set objElement = objCollection(i)
        Exit Do
        End If
        i = i + 1
    Loop
    objElement.Click
  

  Do Until InternetExplorer.Busy = False: DoEvents: Loop
  Do Until InternetExplorer.ReadyState = 4: DoEvents: Loop

       
    'Weiter
    i = 0
    Set objCollection = InternetExplorer.document.getelementsbytagname("a")
    Do While i < objCollection.Length
        If (objCollection(i).classname = "name ") Then
        Set objElement = objCollection(i)
        Exit Do
        End If
        i = i + 1
    Loop
    objElement.Click
   

  Do Until InternetExplorer.Busy = False: DoEvents: Loop
  Do Until InternetExplorer.ReadyState = 4: DoEvents: Loop

also er setzt oben 2 werte in die suchfelder ein und drückt auf finden und dann soll er das sucergebnis andrücken.

wieso wartet er nicht und gibt es eine schleife oder befehl wie man ihn warten lassen kann bis er fertig ist. hab schon sleep wait und andere loop schleifen probiert aber entweder geht das auch nicht oder die ladezeiten vom browser sind unterschiedlich sodass sleep auch nicht immer safe ist und auch zu viel zeit frisst.

danke im voraus