VBA Range/Array

Hallo,

ich kenne mich mit VBA nicht so gut aus und sitze nun vor diesem Problem.
Ich will eine Funktíon in Excel schreiben, die die Werte mit 2 multipliziert und in ein zweidim Array abspeichert (Ist nur ein Beispiel, weil für mein Problem klappt es auch nicht. irgendwo muss der Fehler schon dort liegen). Das funktioniert aber irgendwie nicht.


Option Explicit
Option Base 1

Function HP(data As Range)
Dim nobs As Integer, HPout() As Double
nobs = data.Rows.Count

ReDim a(nobs, 1)
a = data
HP = a
End Function


Kann mir jemand helfen? oder muss ich dieses soch mit einer for schleife machen?

Danke Kurt

Hallo Kurt,
mit VBA kenn ich mich gar nicht aus, aber sieh mal

http://www.boardy.de/showthread.php3?threadid=34294871

da scheint jemand ein ähnliches Problem gehabt zu haben. :wink:

cu Rainer