Zellen vergleichen - zwei Excel Dateien
05.05.2015 14:23:16
Stefan
ich würde gern z.B. die komplette Spalte "C" aus 2 verschiedenen Excel-Dateien vergleichen und wenn es eine Dopplung gibt die jeweilige Zeile in farbig makieren...
ich habe leider nur wenig VBA-Kenntnisse und weis nicht genau ob ich auf dem richtigen Weg bin :) vielleicht könnt ihr mir weiterhelfen
Sub Vergleich()
Dim wbMappe1 As Workbook
Set wbMappe1 = Application.Workbooks("alt")
Dim wbMappe2 As Workbook
Set wbMappe2 = Application.Workbooks("neu")
Dim wsMappe1 As Worksheet
Set wsMappe1 = wbMappe1.Worksheets("tabelle_alt")
Dim wsMappe2 As Worksheet
Set wsMappe2 = wbMappe2.Worksheets("tabelle_neu")
Dim i As Integer
Dim erg As New Collection
For i = 1 To 13000
If wsMappe1.Cells(C, i).Value wsMappe2.Cells(C, i).Value Then Cells(?).EntireRow.Interior. _
ColorIndex = 33
End If
Next
End Sub
Anzeige