Webbrowser in Excel
26.06.2016 22:27:43
Christoph
habe ein kleines Problem.
Wollte über das Steuerelement Webbrowser Daten auslesen.
Problem ist das, wenn ich nachfolgendes Makro über F8 durchlaufen lasse kein Problem entsteht.
Lasse ich das Makro aber über einen Button starten bleibt er bei Loop hängen weil sich der Webbrowser nicht aktualisiert.
Weiß eventuell mal wieder jemand Rat?
Private Sub CommandButton1_Click()
zeilen = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To zeilen
ISBN = Cells(i, 1)
link = xxxxxxxxxx
WebBrowser1.Navigate (link)
Do While WebBrowser1.ReadyState 4
Loop
Next i
End Sub
Gruß Christoph