Fehler beim Markieren der Internetseite?
Michael
Ich habe in A1 folgende Adresse "http://de.moneycentral.msn.com/investor/invsub/results/compare.asp?Page=TenYearSummary&Symbol=DE%3aEEX"
Wenn ich diese mit der unteren Makro aufrufe, kopiert er mir nur das Banner?
Warum markiert er nicht die ganze Seite?
Ich benötige die Daten nicht die komische Werbung?
Vielen Dank
Michael
Sub adsf()
Dim Internet As Object
Dim i As String
Set Internet = CreateObject("InternetExplorer.Application")
i = Tabelle1.Range("a1")
Internet.Navigate [i]
Do While Not Internet.ReadyState = 4
DoEvents
Loop
Internet.Visible = True
Internet.execwb 17, 0
Internet.execwb 12, 0
Internet.execwb 18, 0
Do While Not Internet.ReadyState = 4
DoEvents
Loop
Internet.Quit
Set Internet = Nothing
Tabelle3.Paste
End Sub
'_______