Hallo zusammen,
ich möchte mit einem Modul bestimmte Zeilen aus einer anderen Datei kopieren.
Dies ist mein aktueller Stand:
Sub Aktualisieren()
'Datei öffnen
Workbooks.Open Filename:= _
"Einzeldatei1.xlsm"
'Zeilen auswählen
Range("A4:N4").Select
'Kopieren
Selection.Copy
'Gesamtdatei auswählen
Windows("Gesamtdatei.xlsm").Activate
'Zeile wählen
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A").Select
'Werte einfügen
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Fenster schließen
Windows("Einzeldatei1.xlsm").Activate
ActiveWindow.Close
End Sub
Dies kopiert immer die Zeile 4 der Einzeldatei und fügt es in die nächste leere Zeile der Gesamtdatei ein.
Jedoch sollen nur Zeilen kopiert werden die noch nicht in der Gesamtdatei stehen.
In Zeile H der Einzeldatei gibt es eine fortlaufende Nummer.
Was muss ich bei 'Zeilen auswählen ändern?
Evtl etwas wie "Vergleiche Spalte H" "Falls neue Nummer" "Kopieren"
Danke für eure Hilfe
|