Ergebnisnach Webformulareingabe zurück in Excel

Sub Devisenkurse_laden()
Set IEApp = CreateObject("InternetExplorer.Application") ' MS IE wird geöfnet
IEApp.Visible = True
IEApp.Navigate "https://bankenverband.de/service/waehrungsrechner/" 'die Kursseite wird geö _
ffnet
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False 'vorsichtshalber wird 2 x gewatet ob Seite vollständig  _
geladen
'*** das Kursformular auf der Website wird mit Daten gefüllt und der Kurs geladen
With IEApp.Document
'Do: Loop Until .ReadyState = "complete"
.getElementbyid("amount").Value = 1  'Betrag
.getElementbyid("base").Value = "KZT" ' Basiswährung
.getElementbyid("quote").Value = "EUR" ' Zielwährung
.getElementbyid("date").Value = "31.07.2017" ' Datum
.getElementbyid("decimal_points").Value = "5" ' Dezimalstellen
.getElementbyid("exchange-form-submit").Click
End With
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False 'vorsichtshalber wird 2 x gewatet ob Seite vollständig  _
geladen
'****** ENDE das Kursformular auf der Website wird mit Daten gefüllt und der Kurs geladen
Set IEApp = Nothing
End Sub