range("A1")= strText
Michael
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub URL_Load()
Dim myIE_App As Object, strText As String
Set myIE_App = CreateObject("InternetExplorer.Application")
myIE_App.Navigate "http://www.kicker.de"
Do
Sleep 10
Loop Until myIE_App.Busy = False
strText = myIE_App.Document.documentElement.outerTEXT 'für Text
' strText = myIE_App.Document.documentElement.outerHTML 'für HtmlCode
range("A1")= strText
Set myIE_App = Nothing
End Sub
Hallo!Wenn ich hier range("A1")= strtext eingebe, schreibt er es nur in A1. Er soll den Text jedoch einzeln nach Trennzeichen in die nächste Celle schreiben!!!! Also weiter in A2, A3 ect.. Geht das?
Vielen Dank
Michael