Zwei Dateien vergleichen und aktuallisieren
Dirk
ich habe folgenden Code von Hans bekommen, den ich dann noch ein wenig angepasst habe:
Sub Schaltfläche1_BeiKlick()
Dim wkb As Workbook
Dim rng As Range
Dim iRow As Integer
Dim i
Set rng = Sheets("Tabelle1").Range(ActiveCell, ActiveCell.Offset(0, 3))
'Application.ScreenUpdating = False
On Error Resume Next
Set wkb = Workbooks("Bericht.xls")
On Error GoTo 0
If wkb Is Nothing Then
If Dir(ThisWorkbook.Path & "\Bericht.xls") = "" Then
Beep
MsgBox "Zieldatei wurde nicht gefunden!"
Exit Sub
Else
Workbooks.Open ThisWorkbook.Path & "\Bericht.xls"
End If
Else
wkb.Activate
End If
With Worksheets(1)
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range(Cells(iRow, 1), Cells(iRow, 4)).Value = rng.Value
End With
ActiveWorkbook.Close savechanges:=True
Application.ScreenUpdating = True
End Sub
Wie die Profis unter euch mit sicherheit entnehmen können, wird immer die aktuelle Zelle (Ax), bis zur Zelle in Spalte C in die Datei "Bericht.xls" übernommen. Ich muss also jedesmal wieder eine andere Zelle anwählen um diese dann in die Datei "Bericht.xls" übernehmen zu können.
Meine Fage ist jetzt, wie muss der Code verändert werden oder lauten, damit alle neuen Einträge in der Datei "Bericht.xls" unter den schon vorhandenen aufgelistet werden (uzw. einer nach dem anderen, ohne das ich jedesmal wieder eine Zelle markieren muss)?
Im Vorraus schon einmal Danke
Gruß Dirk