CDbl - Typen unverträglich
25.04.2022 08:04:02
Willi
seit einem Jahr habe ich die folgende Programmierung angewendet
-------------------------------------------------------------------------------------------------------------------------------------
Sub Alles()
Dim I, J, X As Long
Dim seitenobj As Object
Dim inhalt, Z As String
Dim ergebnisXY As String
Set seitenobj = CreateObject("MSXML2.serverXMLHTTP")
seitenobj.Open "Get", "https://www.finanzen.net/aktien/XY", False
seitenobj.Send
inhalt = seitenobj.responseText
If InStr(1, inhalt, "
", vbTextCompare) > 0 Then
ergebnisXY = Split(inhalt, "
ergebnisXY = Split(inhalt, "
")(1)
ergebnisXY = Split(ergebnisXY, "")(0)
End If
Sheets("VR").Select
I = Cells(Rows.Count, 1).End(xlUp).Row
If Range("A" & I) Date Then
Range("A" & I + 1) = Date
Z = "True"
Worksheets("VR").Range("D" & I + 1) = CDbl(ergebnisXY)
-------------------------------------------------------------------------------------------------------------------------------------
und es gab nie Probleme. Heute morgen starte ich das und in der (hier angezeigten) letzten Zeile (CDbl...) bekomme die Rückmeldung gelb unterlegt: "Typen unverträglich".
Weiß jemand woran das liegen kann? Hat Microsoft etwas geändert?
Ich bin sprachlos!
Willi
ergebnisXY = Split(ergebnisXY, "")(0)
End If
Sheets("VR").Select
I = Cells(Rows.Count, 1).End(xlUp).Row
If Range("A" & I) Date Then
Range("A" & I + 1) = Date
Z = "True"
Worksheets("VR").Range("D" & I + 1) = CDbl(ergebnisXY)
-------------------------------------------------------------------------------------------------------------------------------------
und es gab nie Probleme. Heute morgen starte ich das und in der (hier angezeigten) letzten Zeile (CDbl...) bekomme die Rückmeldung gelb unterlegt: "Typen unverträglich".
Weiß jemand woran das liegen kann? Hat Microsoft etwas geändert?
Ich bin sprachlos!
Willi