Hallo,
hier mal die Lösung deines Problems (quick and dirty)
Sub Archiv()
'
' Archiv
' Kopiert neue Daten in ein ArchivArbeitsblatt
'
'
Workbooks.Open Filename:="C:\DATEN\temp\ARCHIV.xls" 'Archivdatei öffnen
archivzeile = 2 'Startzeile wählen
CurCell = Worksheets("Tabelle1").Cells(archivzeile, 1)
Do Until VarType(CurCell) = 0 'Schleife bis leere Zeile
archivzeile = archivzeile + 1
CurCell = Worksheets("Tabelle1").Cells(archivzeile, 1)
Loop
Windows("Daten.xls").Activate 'Daten aktivieren
zeile = 2 'Startzeile wählen
CurCell = Worksheets("Tabelle1").Cells(zeile, 1)
Do Until VarType(CurCell) = 0 ' Solange Zeile nicht leer
If Workbooks("Daten.xls").Worksheets("Tabelle1").Cell s(zeile, 3).Value <> "ok" Then ' Wenn noch nicht archiviert
Workbooks("Archiv.xls").Worksheets("Tabelle1").Cel ls(archivzeile, 1).Value _
= Workbooks("Daten.xls").Worksheets("Tabelle1").Cell s(zeile, 1).Value ' Daten übertragen 1 Spalte
Workbooks("Archiv.xls").Worksheets("Tabelle1").Cel ls(archivzeile, 2).Value _
= Workbooks("Daten.xls").Worksheets("Tabelle1").Cell s(zeile, 2).Value ' Daten übertragen 1 Spalte
Workbooks("Daten.xls").Worksheets("Tabelle1").Cell s(zeile, 3).Value = "ok" ' Flag für bereits archiviert setzen
archivzeile = archivzeile + 1
End If
zeile = zeile + 1
CurCell = Worksheets("Tabelle1").Cells(zeile, 1)
Loop
Workbooks("Archiv.xls").Close SaveChanges:=True
End Sub

Das Excelarbeitsblatt "Daten.XLS" enthält in der ersten Zeile eine Überschrift und ab Zeile 2 Daten. In den ersten beiden Spalten stehen die Daten, die dritte Spalte wird benutzt um Archivierte Datensätze mit "ok" zu kennzeichnen. Melde dich wenn du noch Fragen hast.