Abend zusammen,

ich komme an einer Sache nicht weiter, hoffe Ihr könnt mir hier weiterhelfen.

Der folgende Code zeigt das Problem was ich in einem Größeren Projekt habe.

Die Funktion wird zwar auf gerufen und läuft auch soweit durch, nur sobald die Funktion fertig ist und es an die Übergabe an die Haupt Routine geht gibt es die Fehlermeldung "Index außerhalb des gültigen bereichs" was ich nicht nachvollziehen kann.

Kann mir einer erklären woran das liegt ?  Vielen Dank schon mal.

Dim v() As Integer
Dim i As Integer

Sub Haupt()
    For i = 1 To 5
    
        v(i) = test(2)  <---- Hier kommt der Error
        
    Next i
End Sub

Function test(a As Integer)
    Wert = 100 * a
    Text = Wert
End Function