Worksheetfunction
14.07.2004 13:01:30
Tino
vielleicht kann mir ja jemand mit diesem (hoffentlich kleinen) problem weiterhelfen. eine bestimmte anzahl an daten wird in einem macro generiert und in einem vekctor gespeichert. ueber diesen vektor moechte ich bestimmte worksheetfunctions laufen lassen. bei kleinen datensaetzen funktioniert es gut aber bei grossen bekomme ich eine fehlermeldung (Run-time error 13, type mismatch). anbei ein kleines beispiel:
in zelle 1 und 2 bis 10000 stehen daten (diese werden eigentlich per macro erstellt und werden normalerweise nicht auf einem sheet ausgegeben).
Sub Test()
Dim xvalues(1 To 10000) As Variant
Dim yvalues(1 To 10000) As Variant
For i = 1 To 10000
xvalues(i) = Sheets("Sheet1").Cells(i, 1)
yvalues(i) = Sheets("Sheet1").Cells(i, 2)
Next i
Sheets("Sheet1").Cells(3, 1) = WorksheetFunction.Correl(xvalues, yvalues)
End Sub
die CORREL
Function funktioniert im sheet, aber nicht im code (zumindest fuer groessere datensaetze). ich moechte allerdings auch nicht die daten auf einen sheet ausgeben und muss also in der lage sein, einen vektor direkt an die funktion zu geben.
vielen, vielen dank
tino:)