Code klappt mit F8, mit F5 nicht :-(
Reinhard
lasse ich folgenden Code mit F5 durchlaufen kommen seltsame, anscheinend zufällige, Buchstabenkombinationen in der MsgBox.
Setze ich aber bei
For Z = 0 To UBound(Zahl)
einen Haltepunkt und gehe die Schleife mit F8 durch so wird wie geplant der String "Froehliche Weihnachten aufgebaut"
Was muß ich ändern damit dies auch bei F5 geschieht?
Sub URL_Load()
Dim appIE As Object, sTxt As String, N As Long, Zahl, Z, strMsg As String
Set appIE = CreateObject("InternetExplorer.Application")
appIE.navigate "http://de.wikipedia.org/wiki/Weihnachten"
Do: Loop Until appIE.Busy = False
Do: Loop Until appIE.Busy = False
sTxt = appIE.document.documentElement.innertext
Set appIE = Nothing
Close
Zahl = Array(255, 42, 167, 182, 8, 27, 3, 7, 8, 10, 12, 15, 26, 18, 41, 29, 32, 372, 41, 47, 26, _
29)
For Z = 0 To UBound(Zahl)
strMsg = strMsg & Mid(sTxt, Zahl(Z), 1)
Next Z
MsgBox strMsg
End Sub
Danke ^ Gruß
Reinhard
