CODEWITHSUNDEEP
excelvba
Kuijpers
Kuijpers

Reputation: 35

Problem with error 9 subscript out of range

I have a error in my code. The code gives

error 9: subscript out of range.

But I can't find the problem. Who can help me?

OIWerknemersNummer (I, 1) is the problem.

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

Thanks for you effort.

Upvotes: 0

Views: 40

Answers (1)

Mr ML
Mr ML

Reputation: 428

Your array is out of range because you redim it before you assigne a value to WNMogelijk and VeldenperWN

Upvotes: 2

Related Questions