Hallo zusammen,

ich bräuchte eine Lösung für ein Problem, undzwar habe ich 2 Tabellen in verschiedenen Dateien. In der Originaldatei werden die Daten aus der Tabelle kopiert und in meine Zieldatei überschrieben, damit ich dann damit arbeiten kann. Die Daten enthalten Artikelnummern, und verschiedene Daten über den jeweiligen Artikel. In meiner Zieldatei habe ich auch noch eine Bemerkungsspalte, die in meiner Originaldatei nicht gegeben ist. Wenn sich jetzt die Daten jeweils aktualisieren, kann es vorkommen, dass die Bemerkungen verrutschen und nicht mehr zu der jeweligen Artikelnummer passen. Nun ist meine Frage, wie kann ich das Makro so umschreiben, damit die Bemerkungen nach dem Aktualisieren, trotzdem richtg geordnet sind. Das Makro welches ich schon geschrieben habe, kopiert grade nur die Daten in die Zieldatei. 

Dim Datei As String
    
    Datei = ".............xlsx"

    Workbooks.Open Filename:=Datei
    Sheets("Bericht 1").Select       '   Umbennenen mit der Seite von der Herkunfts Datei
    Range("D5:D500").Copy
    Windows("List_aktuell.xlsm").Activate
    Sheets("Daten").Select
    Range("D7").PasteSpecial Paste:=xlPasteValues
    
    Workbooks.Open Filename:=Datei
    Sheets("Bericht 1").Select       '   Umbennenen mit der Seite von der Herkunfts Datei
    Range("F5:I500").Copy
    Windows("List_aktuell.xlsm").Activate
    Sheets("Daten").Select
    Range("E7").PasteSpecial Paste:=xlPasteValues
    
    
    Workbooks.Open Filename:=Datei
    Sheets("Bericht 1").Select       '   Umbennenen mit der Seite von der Herkunfts Datei
    Range("N5:N500").Copy
    Windows("List_aktuell.xlsm").Activate
    Sheets("Daten").Select
    Range("L7").PasteSpecial Paste:=xlPasteValues
    
    
    Workbooks.Open Filename:=Datei
    Sheets("Bericht 1").Select       '   Umbennenen mit der Seite von der Herkunfts Datei
    Range("P5:AY500").Copy
    Windows("List_aktuell.xlsm").Activate
    Sheets("Daten").Select
    Range("N7").PasteSpecial Paste:=xlPasteValues
    
    ActiveSheet.Range("$A$6:$BL$1000").AutoFilter Field:=2, Criteria1:="<>"
    
    
    

 End Sub

Meine Überlegung wäre es, die eingetragenen Bemerkungen mit der Artikelnummer vor dem Kopiervorgang zu speichern und nach dem Aktualisieren, entsprechend der Artikelnummer wieder einzufügen. Allerdings weiß ich nicht genau wie ich das schreiben soll .

Ich hoffe ihr könnt mir da helfen. Ein Beispielcode würde mir schon reichen, dann könnte ich das auf die Tabellen übertragen.

Vielen Dank im voraus