Sub Vergleichen()
Dim FileAlt, FileNeu, Suchstring As String
Dim ZeilenAlt, ZeilenNeu, ZeigerAlt, ZeigerNeu As Long
Dim Zelle As Range
FileAlt = "Spalten Vergleichen alt.xls"
FileNeu = "Spalten Vergleichen neu.xls"
ZeilenAlt = (Workbooks(FileAlt).Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row + 1) - 1 'Listenlänge alt ermitteln
ZeilenNeu = (Workbooks(FileNeu).Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row + 1) - 1 'Listenlänge neu ermitteln
For ZeigerNeu = 1 To ZeilenNeu 'Neue Liste durchforsten
Suchstring = Workbooks(FileNeu).Worksheets("Tabelle1").Cells(ZeigerNeu, 1).Value
Set Zelle = Workbooks(FileAlt).Worksheets("Tabelle1").Range("A:A").Find(what:=Suchstring) 'Datensatz suchen
If (Zelle Is Nothing) Then 'wenn neuer Eintrag gefunden..
ZeilenAlt = ZeilenAlt + 1 'alte Liste nachführen
Workbooks(FileAlt).Worksheets("Tabelle1").Cells(ZeilenAlt, 1).Value = Suchstring 'neuen Datensatz nachführen
End If
Next
End Sub