Den Wert eines Speichers mit einer Spalte einer anderen Excelmappe vergleichen

Sub DeineSub()
    Dim strDateiname As String, Excel As Object, wb As Object, ws As Object, arr As Variant, identical As Boolean
    strDateiname = "C:\Dokumente und Einstellungen\Schule\Desktop\Anpreßwalzenauswertung_Kartei.xls"  
    Set Excel = CreateObject("Excel.Application")  
    
    ' Der Variablen noch dein 'dataBuf()' Array zuweisen  
    arr = dataBuf
    
    identical = True
    'eventuelle Dialoge unterdrücken  
    Excel.DisplayAlerts = False
    
    If Excel Is Nothing Then
        MsgBox "Konnte keine Verbindung zu Excel herstellen!", 16, "Problem"  
        Exit Sub
    End If
    
    With Excel
        'Sichtbar ausführen  
        .Visible = True
        'Workbook öffnen  
        Set wb = .Workbooks.Open(strDateiname)
        'Tabelle festlegen  
        Set ws = wb.Worksheets(1)
        'Vergleiche Array mit Zellen in Spalte A  
        If IsArray(arr) Then
            For i = 0 To UBound(arr)
                'Wenn Wert des Arrayelementes nicht mit dem Inhalt der Zelle übereinstimmt, gebe 'False' zurück  
                If ws.Cells(i + 1, 1).Value <> arr(i) Then
                    identical = False
                    Exit For
                End If
            Next
            If identical Then
                'Array ist identisch mit Inhalt  
                MsgBox "Inhalt ist identisch mit Spalte A", vbInformation  
            Else
                'Array ist unterschiedlich  
                MsgBox "Inhalt ist unterschiedlich zu Spalte A", vbExclamation  
            End If
        Else    'Inputvariable ist kein Array  
            MsgBox "Variable ist kein Array", vbExclamation  
        End If
    End With
    
    Excel.DisplayAlerts = True
    Excel.Quit
    Set Excel = Nothing
    Set wb = Nothing
    Set ws = Nothing
End Sub

If LCase(ws.Cells(i + 1, 1).Value) <> LCase(arr(i)) Then 

Private Const ExcelFile = "C:\Dokumente und Einstellungen\Schule\Desktop\Anpreßwalzenauswertung_Kartei.xls"  

Private Const xlWhole = 1           'Vergleiche ganzen Inhalt  
Private Const xlPart = 2            'Vergleiche Teil-Inhalt  
Private Const xlValues = -4163      'Suche in Zellwerten  

Private Const vbCritical = 16
Private Const vbExclamation = 48
Private Const vbInformation = 64

Sub Test()
    Call ExcelSearch("Testabc")  
End Sub

Sub ExcelSearch(ByVal strSearch As String)
    Dim objExcel As Object, objWkb As Object, objWks As Object, objFound As Object
    
    On Error Resume Next
    
    Set objExcel = CreateObject("Excel.Application")  
    Set objWkb = objExcel.Workbooks.Open(ExcelFile)
    Set objWks = objWkb.Sheets(1)
    
    If objExcel Is Nothing Then
        MsgBox "Konnte keine Verbindung zu Excel herstellen!", vbCritical, "Problem"  
    ElseIf objWkb Is Nothing Then
        MsgBox "Excel-Datei konnte nicht geöffnet werden!", vbCritical, "Problem"  
    Else
        'Args: Suchstring, , in Zellwerten suchen, Vergleich teil (xlPart) / ganzer(xlWhole) Inhalt  
        Set objFound = objWks.Range("A:A").Find(strSearch, , xlValues, xlWhole)  
        
        If objFound Is Nothing Then
            MsgBox strSearch & ": Nicht gefunden!", vbInformation, "Hinweis"  
        Else
            MsgBox strSearch & ": In Zeile " & objFound.Row & " gefunden!", vbInformation, "Hinweis"  
        End If
        objWkb.Close False
    End If
        
    If IsObject(objExcel) Then objExcel.Quit
    
    On Error GoTo 0
End Sub