Hallo,
ich möchte eine Funktion schreiben, die 2 Spalten eines Worksheets als Vektor einliest. Mein Problem ist die Dateitypenunverträglichkeit. Das Einlesen klappt ohne Probleme und ist dann aber vom Typ Variant. Die Ausgabe der Funktion soll dann allerdings als Array vom Typ Double erfolgen und genau das klappt nicht.
Vielen Dank für jede Art von Hilfe
Grüße Nick
Function Vek(Startzeile As Integer, Startspalte As Integer, Endspalte As Integer) As Double()
Dim WS As Worksheet
Dim R As Range
Dim n As Integer
Dim j As Integer
Dim V() As Variant
Set WS = ThisWorkbook.Worksheets(1)
Set R = WS.Range(WS.Cells(Startzeile, Startspalte), WS.Cells(Startzeile, Endspalte).End(xlDown))
V = R.Value
n = UBound(V, 1)
For j = 1 To n
Vek(j, 1) = CDbl(V(j, 1)) 'Hier bekomme ich eine Fehlermeldung, dass links ein Argument vom Typ Variant erwartet wird
Vek(j, 2) = CDbl(V(j, 2))
Next j
End Function
|