if..then: celwaarde gelijk is aan andere waarde

[sandra1978]

Hoi,

Ik wil bepaalde handelingen uitvoeren wanneer een bepaalde cel gelijk is aan een andere cel. Ik heb met F8 doorlopen, en er gebeurt niets, alsof er geen match is. (de if springt direct over naar end if) Terwijl er effectief wel een match is. Als ik met 'msgbox' de 2 waarden achterhaal, zijn ze gelijk. Dus ik snap er eigenlijk niets van. Waarschijnljik is het iets simpel onnozel, maar ik vind het dus niet.
Hieronder een stuk van m'n code.

sub
      Dim lastrow As Long
      Dim firstrow As Long
      Dim doelmap As Workbook    
      Dim bronmapcopy As Workbook
      Dim trajectbereik As Variant

     Set bronmapcopy = Workbooks("planningstabel_copy2.xlsm")    
     firstrow = planningstabel.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).row
     lastrow = bronmapcopy.Worksheets("uurrooster").Range(("ed") & Rows.Count).End(xlUp).row

        For Each trajectbereik In bronmapcopy.Worksheets("bereiken").Range(bronmapcopy.Worksheets("bereiken").Range("cf3"), bronmapcopy.Worksheets("bereiken").Range("cf2").End(xlDown))
        Set doelmap = Workbooks.Add("rooster website sjabloon.xlsm")
        doelmap.SaveAs (trajectbereik.Value)
        
        bronmapcopy.activate
        
        For k = firstrow To lastrow
        MsgBox Cells(k, 53).Value 'kolom BA-combi opleiding/trajectbereik, om te checken
        MsgBox trajectbereik.Value 'om te checken
        If Cells(k, 53).Value = trajectbereik.value Then
        
        'kolommen zijn niet de correcte, is voor voorbeeld op forum
        Cells(k, 20).Copy 'lesgever
        doelmap.Sheets("rooster").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        Cells(k, 25).Copy  'klascode
        doelmap.Sheets("rooster").Cells(Rows.Count, "A").End(xlUp).Offset(0, 1).PasteSpecial xlPasteValues
        Cells(k, 30).Copy  'deel a/b
        doelmap.Sheets("rooster").Cells(Rows.Count, "A").End(xlUp).Offset(0, 2).PasteSpecial xlPasteValues
        Cells(k, 35).Copy  'groep
        doelmap.Sheets("rooster").Cells(Rows.Count, "A").End(xlUp).Offset(0, 3).PasteSpecial xlPasteValues
        Cells(k, 40).Copy  'module
        doelmap.Sheets("rooster").Cells(Rows.Count, "A").End(xlUp).Offset(0, 4).PasteSpecial xlPasteValues
        'enzovoort
end if
next
next
end sub

Iemand een idee wat hier het probleem is, wat moet ik aanpassen?

Alvast bedankt,