Office: Unzulässige Verwendung von NULL

JapanFreak · 5. November 2008

Hallo zusammen,

ich habe ein Problem mit der Berechnung einer Regressionsgeraden. Da ich nicht den "Umweg" über die Ausgabe der Daten auf ein Worksheet und der anschließenden Verwendung der WorksheetFunction.Intercept bzw. .Slope gehen möchte, habe ich eine Prozedur zur Berechnung der Koeffizienten geschrieben, welche die Daten als Array aufnehmen kann.

Der Code funktioniert auch soweit. Ein Problem tritt jedoch auf, wenn eine Feld des Arrays leer ist, also den Wert "NULL" annimmt. Ich erhalte dann die Fehlermeldung "Unzulässige Verwendung von NULL". Ich habe jetzt schon verschiedene Wege versucht, ein solches Feld zu überspringen (wie z.B. den Versuch, welchen ich unten eingefügt habe), jedoch tritt immer das gleiche Problem auf. Was mache ich falsch, wie kann ich das richtig formulieren?

Der nachfolgende Code enthält zusätzlich die Prozedur TestRegressionIntercept, welche die Arrays mit ein paar Daten befüllt und den Problemfall erzeugt.

Hat da jemand vielleicht eine Idee?

Viele Grüße
JapanFreak

Code:

Sub TestRegressionIntercept()
Dim vXVar(4) As Variant, vYVar(4) As Variant

vXVar(1) = 3
vXVar(2) = 5
vXVar(3) = Null
vXVar(4) = 2

vYVar(1) = 3
vYVar(2) = 5
vYVar(3) = 3
vYVar(4) = 8

MsgBox RegressionIntercept(vXVar(), vYVar())
End Sub

Function RegressionIntercept(XVar() As Variant, YVar() As Variant) As Double
Dim dAvgXVar As Double, dAvgYVar As Double
Dim dSS_xy As Double, dSS_xx As Double
Dim i As Long

'Avg X
For i = 1 To UBound(XVar)
If XVar(i) = Null Then
dAvgXVar = dAvgXVar
Else
dAvgXVar = dAvgXVar + XVar(i)
End If
Next i
dAvgXVar = dAvgXVar / UBound(XVar)

'Avg y
For i = 1 To UBound(YVar)
If YVar(i) = Null Then

Else
dAvgYVar = dAvgYVar + YVar(i)
End If
Next i
dAvgYVar = dAvgYVar / UBound(YVar)

'SS_xy & SS_x^2
For i = 1 To UBound(XVar)
If XVar(i) = "" Then

Else
dSS_xy = dSS_xy + ((XVar(i) - dAvgXVar) * (YVar(i) - dAvgYVar))
dSS_xx = dSS_xx + (XVar(i) - dAvgXVar) ^ 2
End If
Next i

RegressionIntercept = dAvgYVar - (dSS_xy / dSS_xx * dAvgXVar)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

EarlFred · 6. November 2008

Hallo Japanfreak,

warum nicht einfach
Code:

vXVar(3) = 0
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

setzen? Oder was willst Du mit "Null" bewirken?

Grüße
EarlFred

JapanFreak · 6. November 2008

Vielen Dank für Deine Antwort!

Diese Prozedur ist nur ein Test; sie spiegelt nicht wider was ich will, sondern was passiert wenn ich mit den "echten" Daten arbeite. Es kommt schlicht vor, dass einige Stellen des Arrays (welches mehrere tausend Elemente enthält) den Wert NULL annehmen. Dies muss ich bei der Berechnung der Regressions-Koeffizienten berücksichtigen, damit der Fehler "Unzulässige Verwendung von NULL" nicht auftritt.

Gruß
JapanFreak

User · 6. November 2008

Moin JapanFreak,

wäre es eine Option schon beim Einlesen der Daten nicht verwertbare Daten zu unterbinden bzw. zu übersetzen in lesbare? So könntest du beim Einlesen abfragen, wenn Einleswert ist NULL dann gleich 0, oder generell abfragen, ob eine Zahl vorliegt.

Oder sehe ich das jetzt zu einfach?

JapanFreak · 6. November 2008

Ja und Nein. Dies ist natürlich eine Option, aber ich scheine hier etwas grundsätzlich falsch zu machen. Die folgene IF-Schleife soll ja Werte mit NULL erkennen und im Falle des Falles umgehen:

Code:

If XVar(i) = Null Then
dAvgXVar = dAvgXVar
Else
dAvgXVar = dAvgXVar + XVar(i)
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gleichermaßen könnte ich es beim Befüllen der Daten machen. Jedoch springt das Programm immer, auch wenn die Bedingung "=NULL" erfüllt ist auf die Else-Anweisung, womit dann der Fehler auftritt. Was mache ich hier falsch?

EarlFred · 6. November 2008

Hallo JapanFreak,

OK, wenn es um die Prüfung geht, weil der Wert NULL nicht vermeidbar ist, könntest Du

Code:

If IsNull(XVar(i)) Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

verwenden, wobei

Code:

If Not IsNull(XVar(i)) Then dAvgXVar = dAvgXVar + XVar(i)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

für Deine Berechnung ausreichend sein sollte.

Grüße
EarlFred

JapanFreak · 6. November 2008

Vielen Dank, jetzt funktioniert es! Hier der Code:

Code:

Function RegressionIntercept(XVar() As Variant, YVar() As Variant) As Double
Dim dAvgXVar As Double, dAvgYVar As Double
Dim dSS_xy As Double, dSS_xx As Double
Dim i As Long

'Avg X
For i = 1 To UBound(XVar)
If Not IsNull(XVar(i)) Then dAvgXVar = dAvgXVar + XVar(i)
Next i
dAvgXVar = dAvgXVar / UBound(XVar)

'Avg y
For i = 1 To UBound(YVar)
If Not IsNull(YVar(i)) Then dAvgYVar = dAvgYVar + YVar(i)
Next i
dAvgYVar = dAvgYVar / UBound(YVar)

'SS_xy & SS_x^2
For i = 1 To UBound(XVar)
If Not IsNull(XVar(i)) Then
If Not IsNull(YVar(i)) Then
dSS_xy = dSS_xy + ((XVar(i) - dAvgXVar) * (YVar(i) - dAvgYVar))
dSS_xx = dSS_xx + (XVar(i) - dAvgXVar) ^ 2
End If
End If
Next i

RegressionIntercept = dAvgYVar - (dSS_xy / dSS_xx * dAvgXVar)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Unzulässige Verwendung von NULL

Unzulässige Verwendung von NULL

Unzulässige Verwendung von NULL

Unzulässige Verwendung von NULL

Unzulässige Verwendung von NULL - Similar Threads - Unzulässige Verwendung NULL

Ergebnis aus INDEX und Vergleich Formel weiter Verwenden

Verwendung der unterschiedlichen Typen von Formatvorlagen

"Eigene"excel-Funktion innerhalb einer Sub verwenden

Unzulässige Verwendung einer Eigenschaft

Unzulässige Verwendung von NEW

Verwendung von Null unzulässig

Unzulässige Operation