Compare 2 arrays using Match

Hi All,
I have two arrays which I want to compare, using Match.
The code below is what i have so far, but it is failing on the Redim Preserve ArrNot(k) line, with error "Run-time error '13' Type Mismatch"
All arrays are defined as Variant.
Just not sure how to proceed with debugging.

Cheers,
Skimmer333

    'compare 2 arrays. Values in Arr and NOT in ArrResults need to output
    l = 0
    k = 0
    On Error GoTo Output
    For l = LBound(Arr)))To UBound(Arr())
        j = Application.Match(Arr(l), ArrResults(), 0)
    Next l
    
Output:
    ReDim Preserve ArrNot(k)
    ArrNot(k) = Arr(l)
    k = k + 1
    Range("J1").Select
        If l = UBound(Arr()) Then
        For k = 1 To UBound(ArrNot())
            ActiveCell.Value = ArrNot(k)
        Next k
    Else
        Resume Next
    End If

Hi skimmer333
declare

Dim ArrNot()

but what are you doing there has to be a better way than rely on errors?

 Dim ArrNot()

    
    l = 0
   k = 0
    
    On Error GoTo Output
    For l = LBound(arr) To UBound(arr())
        j = Application.Match(arr(l), arrResults(), 0)
    Next l
    
Output:

    ReDim Preserve ArrNot(k)
    ArrNot(k) = arr(l)

   k = k + 1
    Range("J1").Select
        If l = UBound(arr) Then
        For k = 1 To UBound(ArrNot)
            ActiveCell.Value = ArrNot(k)
        Next k
    Else
    End If
        Resume Next
End Sub

Like Pike says without knowing what you're trying to do nor how the initial arrays are being created it's hard to give specific advice.

By the looks of it something like:

    Dim Arr, ArrResults, ArrNot
    Dim k As Long, l As Long
    'create Arr, ArrResults etc...
    ReDim ArrNot(LBound(Arr) To UBound(Arr))
    k = LBound(ArrNot)
    For l = LBound(Arr) To UBound(Arr)
        If Not IsNumeric(Application.Match(Arr(l), ArrResults, 0)) Then
            ArrNot(k) = Arr(l)
            k = k + 1
        End If
    Next l
    ReDim Preserve ArrNot(LBound(ArrNot) To k - 1)
    Range("J1").Resize(UBound(ArrNot) + 1 - LBound(ArrNot)).Value = Application.Transpose(ArrNot)

might work for you... obviously the code for creation of Arr, ArrResults is not there as we don't know how you're creating them.

In the above I sized ArrNot to be the same as Arr initially (max no. of possible values) and ReDim'd on completion based on k with Preserve (best to do as infrequently as possible)

Then posted the results of ArrNot to J1:Jn where n determined by size of ArrNot
(you might need to clear pre-existing results beforehand... again not clear if required or not)

Example:

Sub snb()
  sq=split("aa|bb|cc|dd|ee|ff|gg","|")
  sn=array("aa","zz","yy","bb","cc","dd","ee","ff","bb")

  For j=0 to ubound(sn)
    If ubound(filter(sq,sn(j)))=-1 then c01=c01 & "|" & sn(j)
  next
End Sub

The string c01 contains all values in array sn that array sq doesn't.

But in this case you don't even need to compare arrays:

Sub snb_001()
   c02="|aa|bb|cc|dd|ee|ff|gg|"
   sn=array("aa","zz","yy","bb","cc","dd","ee","ff","bb")

   for j=0 to ubound(sn)
      if instr(c02,"|" & sn(j) & "|")=0 then c01 =c01 & "|" & sn(j)
   next
 End Sub

this would be better

Dim arr, arrResults, Kindex As Long, Lindex As Long, jindex As Long, arrNot(), XValue
 
    'compare 2 arrays. Values in Arr and NOT in ArrResults need to output
Kindex = 0
arr = Array("2", "4", "5", "6")
arrResults = Array("3", "67", "5", "9")
   ' On Error GoTo Output
    For Lindex = LBound(arr) To UBound(arr)
     For jindex = LBound(arrResults) To UBound(arrResults)
        If arr(jindex) = arrResults(Lindex) Then
         
         ReDim Preserve arrNot(Kindex)
            arrNot(Kindex) = arr(Lindex)
      
      Kindex = Kindex + 1
     End If
   Next jindex
  Next Lindex
   For Each XValue In arrNot
   Range("J1").Value XValue
   Next