Guten Morgen allerseits
ich mühe mich jetzt schon seit Stunden mit dem Versuch ab eine einfache Funktion zu schreiben, und zwar habe ich Probleme beim ersten Punkt des Codes. Ich möchte der Funktion noten(bereich) den Bereich übergeben und es sollen alle im Bereich enthaltenen Werte in ein Array zur weiteren verarbeitung geschrieben werden. Ich habe nun schon mit Hilfe von verschiedenen Schreibweisen und beispielen aus dem Netz versucht, doch das einzige was es mir gebracht hat ist eine Lektion in Fehlerkunde...
zum Code:

Public Function noten(bereich As Range) As Double
Dim vektor(bereich.Cells.Count) As double
Dim i As Integer
i = 0
Dim x As Integer
Dim zelle As Range
For Each zelle In bereich
vektor(i) = zelle.Value
i = i + 1
Next

Das Problem scheint die Dimensionierung des Array zu sein, wenn ich nämlich einen fixen Wert zb 8 einsetze, dann funktioniert dies, aber wieso kann ich nicht einfach die Zellenanzahl einsetzen? Das verstehe ich einfach nicht, schliesslich ist dies ja auch ein fixer Wert.