Excel Makro - Vergleichen bzw. Ersetzen der Inhalte aus mehreren Excel-Dateien

Option Explicit
Option Compare Text

Private Sub CommandButton1_Click()
    Dim quelldatei As Workbook
    Dim zieldatei As Workbook
    
    Set quelldatei = Workbooks.Open("C:\xyz\abc\quelldatei.xls")  
    Set zieldatei = Workbooks.Open("C:\xyz\abc\zieldatei.xls")  
    
    Dim c As Range
    Dim d As Range
    
    For Each c In quelldatei.Range("C3:C" & quelldatei.Cells(quelldatei.Rows.Count, "C").End(xlUp).Row)  
        If Not IsEmpty(c) Then
            Set d = zieldatei.Columnbs("B").Find(c, LookIn:=xlValues, LookAt:=xlWhole)  
            If d Is Nothing Then
                c.Offset(0, 1) = "Nein"  
            Else
                d.Value = c.Offset(0, -1):  c.Offset(0, 1) = "Ja"  
            End If
        End If
    Next
End Sub