Hi,
ich habe derzeit eine Warteschleife drin, allerdings wäre es besser wenn man wartet bis Firefox die Seite komplett geladen hat...
Hat jemand eine Idee hierzu:
Function OpenUrl(sURL As String, InFireFox As Boolean) As Integer
If InFireFox Then
OpenUrl = Shell("C:\Programme\Mozilla Firefox\firefox.exe " & sURL)
End If
End Function
Sub MDAXKurse()
intResult = OpenUrl("https://www.onvista.de/index/boersenkurse/MDAX-Index-323547", True)
Application.Wait Now + TimeSerial(0, 0, 3) ------------- 'geht um diese Zeile
Application.SendKeys "^a"
Application.Wait Now + TimeSerial(0, 0, 3)
Application.SendKeys "^c"
Application.Wait Now + TimeSerial(0, 0, 3)
Worksheets("MDAX_Kurs").Select
Range("A1").Select
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False
Application.SendKeys "^{F4}", True
End Sub