Hallo Zusammen,

vielleicht habt ihr eine Idee

ich nutze ein VBA Macro um einen einzigen Wechselkurs von https://www.bakai.kg/en/ zu bekommen, und zwar "EUR" Tabelle "non-cash", Spalte "sale" es hat auch alles wunderbar geklappt, bis ich gemerkt habe, dass der Wechselkurs immer gleich bleibt. Ich habe dann festgestellt, dass der Wechselkurs auf der website sich ständig ändert. Ich habe dann versucht die komplette website in excel einzuspeisen - gleiches Ergebnis - den Wert, welchen ich brauche, gab es da nicht. Im Quellcode von der website sehe ich aber beide Werte, also meinen 94,5 und den richtigen auch

Habt Ihr eine Idee, wie ich an den richtigen Wechselkurs komme?

Sub getRates7()
        Dim request As Object
        Dim response As String
        Dim html As New HTMLDocument
        Dim website As String
        Dim price As Variant
        
        
        'Website to go to
            website = "https://www.bakai.kg/en/"
            
        'Create the object that will make the webpage request
            Set request = CreateObject("MSXML2.XMLHTTP")
        
        'Where to go an how to go there
            request.Open "GET", website, False
        
        'Get fresh data
            request.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
        
        'Send the request for the webpage
            request.send
            
        'get the webpage response data to a variable
            response = StrConv(request.responseBody, vbUnicode)
        
        'Put the webpage into an html object to make data references easier
            html.body.innerHTML = response
        
        'Get the price from the specified element on the page
            
            Dim i As Integer
            
            For i = 0 To 100
                 On Error Resume Next
                 price = html.getElementsByTagName("td")(i).innerText
                'MsgBox "i" & i & "  " & price
                Worksheets("tabelle1").Range("A" & i).Value = price
            Next i
                On Error GoTo 0
End Sub

Windows 10, Excel 2019