subscript out of range

[ansi]

Ik krijg 'subscript out of range' bij de lijn 'Worksheets("CRITERIUM-VALUES").Cells(hulp, 5).Value = thema(n, 1)'
maar vind de fout niet. In debug zie ik p = 8, q = 8, dus hulp = 5, n = 1 Lijkt mij dus in orde te zijn. Heeft er iemand een idee?

Sub pasCriteriumValuesAan()
Dim i As Integer
Dim n As Integer
Dim j As Integer
Dim k As Integer
Dim m As Integer
Dim o As Integer
Dim p As Integer
Dim q As Integer

For o = 5 To 18
q = 0
m = 1
Dim thema(5000, 2) As String
For i = 3 To 1000
If Worksheets("MAP_THEME_DEFINITION_CRITERIUM").Cells(i, 2).Value = "FR" Then
k = 0

For j = 1 To 5000
If (Worksheets("MAP_THEME_DEFINITION_CRITERIUM").Cells(i, o).Value = "" Or Worksheets("MAP_THEME_DEFINITION_CRITERIUM").Cells(i, o).Value = thema(j, 1) Or Worksheets("MAP_THEME_DEFINITION_CRITERIUM").Cells(i, o).Value = "[ paste a value of CRITERIUM_VALUES if only applicable]") Then
k = k + 1
End If
Next j

If k = 0 Then
thema(m, 1) = Worksheets("MAP_THEME_DEFINITION_CRITERIUM").Cells(i, o).Value
thema(m, 2) = Worksheets("MAP_THEME_DEFINITION_CRITERIUM").Cells(i + 1, o).Value
m = m + 1
p = p + 1
q = q + 1
End If

End If
Next i

For n = 1 To m
Dim hulp As Integer
hulp = p - q + 2
Worksheets("CRITERIUM-VALUES").Cells(hulp, 5).Value = thema(n, 1)
Worksheets("CRITERIUM-VALUES").Cells(hulp, 6).Value = thema(n, 2)
Worksheets("CRITERIUM-VALUES").Cells(hulp, 1).Value = Worksheets("MAP_THEME_DEFINITION_CRITERIUM").Cells(1, o).Value
Next n
Next o
End Sub

 

[ansi]

opgelost

fout lag ergens anders (naam tabblad kwam niet overeen met naam tabblad in de code)