Range in Array einlesen
24.11.2004 10:07:44
Andreas
ich will ein Range in ein Array einlesen und dieses array anschliesend an eine
funktion übergeben. Wenn ich das alles richtig verstanden habe müsste das
eigentlich so aussehen:
Dim xii() As Variant
Dim yii() As Variant
Sub test()
xii = [map.Cells(r + 1, 2): map.Cells(r + MMPOI, 2)]
yii = [map.Cells(r + 1, 1): map.Cells(r + MMPOI, 1)]
EMNEW = AKIMA(xii(), yii(), MMPOI, XPOL)
End Sub
Die funktion wird folgendermassen definiert:
Function AKIMA(xii() As Variant, yii() As Variant, n, x) As Double
AKIMA = y(1)
End Function
Mein Problem ist nun, dass ich xii() bzw, yii() als dynamisches Feld definiere,
das Feld aus dem Range nicht einlesen kann und wenn ich xii, bzw. yii nur als
Variant definiere bekomme ich eine Fehlermeldung bei der übergabe an die
Funktion.
Die Fehlermeldungen sind:
mit dim xii() as variant:
---------------------------
Compile error:
Type mismatch
---------------------------
in der Zeile mit xii
und mit dim xii as variant:
---------------------------
Compile error:
Type mismatch: array or user-defined type expected
---------------------------
im Funktionsaufruf
Kann mir vielleicht jemand weiterhelfen, wie ich das Range einlesen kann ohne
dafür eine Schleife basteln zu müssen. Sind relativ viele Daten und macht das
ganze daher sehr langsam.
Vielen Dank
Andreas