Dateien miteinander vergleichen, kompliziert.

Sub DateiVergleich(ws1 As Worksheet, ws2 As Worksheet)
Dim ws1Row As Long, ws2Row As Long, ws1col As Long, ws2col As Long
Dim maxrow As Long, maxcol As Long
Dim colval1 As String, colval2 As String
Dim Row As Long, Col As Long
Dim difference As Long
Set report = Workbooks.Add
With ws1.UsedRange
ws1Row = .Rows.Count
ws1col = .Columns.Count
End With
With ws2.UsedRange
ws2Row = .Rows.Count
ws2col = .Columns.Count
End With
maxrow = ws1Row
maxcol = ws1col
If maxrow  colval2 Then
difference = difference + 1
Cells(Row, Col).Formula = colval1 & "  " & colval2
Cells(Row, Col).Interior.Color = 255
Cells(Row, Col).Font.ColorIndex = 2
Cells(Row, Col).Font.Bold = True
End If
Next Row
Next Col
report.Saved = True
If difference = 0 Then
report.Close False
End If
Set report = Nothing
MsgBox diffrences & " Zellen haben unterschiedliche Werte!"
End Sub