VBA Fehler Überlauf bei Array Berechnung
04.09.2020 10:34:00
Johann
an dieser Stelle erstmal nochmals vielen Dank für eure Hilfe aus dem bereits archivierten Beitrag:
https://www.herber.de/forum/cgi-bin/callthread.pl?index=1779305
Hierdurch konnte ich mich in die Materie mit den Arrays sehr gut einlesen und auch verstehen, wie es mit den Dimensionen funktioniert.
Ich bin mit meinem Projekt schon fast fertig geworden (und ja ich versuche jeden Fehler erst selbst zu lösen). Bei dem folgen Fall komme ich einfach nicht weiter:
Function swisho(x As Double) As Double
Dim sigo As Double
sigo = x / (1 + Math.Exp(-x * 1.25))
swisho = sigo
End Function
Sub test()
Dim arr1 As Variant
ReDim arr1(1 To 2, 1 To 3)
For I = 1 To 2
For J = 1 To 3
arr1(I, J) = swisho(Rnd)
Next J
Next I
arr1(2, 2) = swisho(CDbl(arr1(1, 2)))
arr1(2, 1) = swisho(-591.105234590911)
End Sub
Das CDbl beim Code
arr1(2, 2) = swisho(CDbl(arr1(1, 2)))
Der obige Code ist nur ein Teilauszug, um das Problem zu verdeutlichen. Der errechnete Wert von -591.105234590911 habe ich aus dem Lokalfenster abgelesen.
Der Fehler "Überlauf" mit dem Laufzeitfehler 6 kommt in der folgenden Zeile:
sigo = x / (1 + Math.Exp(-x * 1.25))