Type mismatch

Hej,

Jeg har problemer med typerne (Type mismatch) i nedenstående kode, den variabel der bliver returneret fra CopyFilter, er tilsyneladende ikke den samme som den der bliver modtaget i funktionen run(). Jeg har lavet noget tilsvarende kode der returnerer værdierne på samme måde og det fungerer upåklageligt.

Hvad har jeg overset? (se kommentarerne i koden)


Function CopyFilter(readSheet As String, height As Long, width As Long)
    Dim RowArray() As Variant
    Dim DimY() As Variant
    Dim DimX() As Variant
    ReDim DimY(height)
    ReDim DimX(width)
   
    newY = 1
    For y = 2 To height
        If Sheets(readSheet).Rows(y).Hidden = False Then
            For x = 1 To width
                DimX(x) = Worksheets(readSheet).Cells(y, x).Value
            Next
            DimY(newY) = DimX()
            Worksheets("Ark3").Cells(newY, 1) = DimY(newY)(1) 'Her er dataene fine nok og kan skrives til excel arket
            newY = newY + 1
        End If
    Next
    ReDim DimY(newY - 1)
   
    CopyFilter = DimY() 'Her bliver de returneret
   
End Function

Function run()
    Dim types(10) As String
    Dim fields(2) As Integer
    Dim fieldCount As Integer
    Dim FilteredData() As Variant
    Dim blahblah As String
   
   

    fields(1) = 1
    fields(2) = 2
    typeField = 1
   
    FilteredData() = CopyFilter("Ark1", countFilledRows("Ark1"), 2) 'Her bliver de modtaget i FilteredData
    types(1) = "a"
    types(2) = "b"
    Worksheets("Ark5").Cells(1, 1) = UBound(FilteredData())
    For y = 1 To UBound(FilteredData)
        For x = 1 To 2 'UBound(FilteredData(y)())
            Worksheets("Ark3").Cells(y, 1) = FilteredData(y)(1) 'Og her er dataene ikke fine nok og kan ikke skrives til excel arket
        Next
    Next
   
    'result = createReport(FilteredData, types, typeField, fields)
End Function