Überlauf
19.08.2019 20:44:04
Marc
heute verzweifle ich an der Fehlermeldung "Überlauf". =)
Vermutlich liegt es daran, dass aus meiner Rechenoperation ein Wert mit sehr vielen Nachkommastellen resultiert. Der Versuch, die Rechenoperation in einer Round Funktion durchzuführen führt leider auch nicht zum Erfolg. Wie ich gelesen habe taucht dieser Fehler eigentlich auf wenn man Variablen unpassende Werte zuweist aber in diesem Fall gibt es keine Variable denn die Berechnung bezieht sich auf den Inhalt einer Zelle.
Private Sub m_TWSControl_fundamentalData(ByVal reqId As Long, ByVal data As String)
Dim xmlDoc As Object
Set xmlDoc = CreateObject("Microsoft.XMLDom") 'XMLDocument Object erstellen
xmlDoc.LoadXML (data)
Dim fYears As Object '
Dim Period As Object
Dim attrColl As Object
Dim kpiColl As Object
Dim kpi As Object
Dim kpiSheet As Object
Dim Line As Integer
Line = 0
Set kpiSheet = ThisWorkbook.Worksheets("KPI´s")
Set fYears = xmlDoc.getElementsByTagName("FiscalPeriod")
For Each Period In fYears
Line = Line + 1
If Period.getAttribute("Type") = "Annual" Then
Set attrColl = Period.Attributes
kpiSheet.Cells(Line, 1).Value = attrColl.Item(2).Value
Set kpiColl = Period.getElementsByTagName("lineItem")
For Each kpi In kpiColl
If kpi.getAttribute("coaCode") = "OTLO" Then
kpiSheet.Cells(Line, 2).Value = kpi.Text
ElseIf kpi.getAttribute("coaCode") = "SDWS" Then
kpiSheet.Cells(Line, 3).Value = kpi.Text
End If
Next kpi
Else
End If
kpiSheet.Cells(Line, 4).Value = Round((kpiSheet.Cells(Line, 2).Value) / (kpiSheet.Cells(Line, 3) _
.Value), 2)
kpiSheet.Cells(Line, 4).NumberFormat = "0.00"
Next Period
End Sub
VG,
Marc