Проблема с ошибкой 9 нижний индекс вне диапазона

Question

У меня ошибка в моем коде. Код дает

ошибка 9: индекс вне диапазона.

Но я не могу найти проблему. Кто может мне помочь?

OIWerknemersNummer (I, 1) это проблема.

Dim VeldenperWN As Integer
Dim WNMogelijk As Integer

Sub OrderInvoeren()
    Dim OIWerknemersNummer()
    ReDim OIWerknemersNummer(WNMogelijk, VeldenperWN)

    WNMogelijk = 10
    VeldenperWN = 9    

aantalwerknemers = WBWerknemerslijst.Range("A1048576").End(xlUp).Row - 1


    For I = 1 To WNMogelijk
        OIWerknemersNummer(I, 1) = WBProjectInvoer.Cells(RIJWerknemer - 1 + I, KOLWerknemer) 'error here
        If OIWerknemersNummer(I, 1) > aantalwerknemers Then
            MsgBox "Bij werknemer " & I & " is geen werknemer gekozen. Het project is niet ingevoerd." _
                & " Kies een bestaande werknemer of verwijder het corrosponderende getal in het vakje ernaast.", vbInformation
            Exit Sub
        End If
    Next I

Спасибо за ваши усилия.

Answer 1

Ваш массив находится вне диапазона, потому что вы переделываете его, прежде чем присваиваете значения WNMogelijk и VeldenperWN