Historie auf neuem Tabellenblatt

[Alibabax3]

Guten Tag, 
Ich bin dabei für meine Firma ein Excel-Tool zur Datenanalyse zu erstellen. 
Hierfür wird aus einer im Firmensystem hinterlegten Grundlagendatei mit sehr vielen Daten eine von mir aufbereitete und visuell ansehnlichere ExcelTabelle erstellt.

Da sich die Grundlagendatei einmal im Monat aktualisiert habe ich das ganze mit PowerQuery gelöst um eine Aktualisierung zu vereinfachen. 

Zum Problem: Zusätzlich zu denen sich durch PowerQuery aktualisierenden Daten ist eine Kommentarspalte gewünscht, in der zusätzliche Informationen über einen Geschäftsvorgang vermerkt werden können. Diese soll zwar jeden Monat ( wenn eine neue Grundlagendatei verfügbar ist) gelöscht und neu beschrieben werden können, jedoch wäre es wünschenswert alte Einträge aus dieser Kommentarspalte in einer Art Historie festzuhalten und in ein neues Tabellenblatt zu kopieren. 

Ich habe eine Beispieldatei angehängt. In dieser hätte ich gerne die Kommentarspalte ( grün ) bei jeder Betätigung eines Buttons ( welcher dann auch die Aktualisierung von Powerquery ausführt ) in das neue Tabellenblatt 2 übertragen. Dabei wäre natürlich darauf zu achten das die Kommentare immer zu dem passenden Auftrag ( gelb) zugeordnet werden. 

Ich hoffe ich habe meine Frage einigermaßen verständlich gemacht und bin für jede Hilfe dankbar..

Gruß Alibaba

[Kuwer]

Hallo Alibaba,

Code:

  With Worksheets("Tabelle1").Columns(11)
    Range(.Cells(3, 1), .Cells(.Rows.Count, 1).End(xlUp)).Copy
  End With
  With Worksheets("Tabelle2")
    .Paste .Cells(3, Columns.Count).End(xlToLeft).Offset(, 1)
  End With
  Application.CutCopyMode = False

Gruß Uwe

[Alibabax3]

Danke schonmal für die Antwort! 

Das ganze klappt eigentlich sehr gut und erfüllt seinen Zweck. Ich frage mich nur was passiert wenn durch PowerQuery bei Aktualisierung jetzt Zeilen hinzugefügt/gelöscht oder im schlimmsten Fall sogar ausgetauscht werden. 
Dann würden die kopierten Werte ja auf den falschen Auftrag (gelb) zeigen. Gibt es dafür eine Lösung ?

MfG Alibaba

[Kuwer]

Hallo Alibaba,

dann vielleicht so:

Code:

Sub aab()
  With Worksheets("Tabelle1")
    Application.Intersect(.Range("A:A,K:K"), .Range(.Cells(3, 11), .Cells(.Rows.Count, 11).End(xlUp)).EntireRow).Copy
  End With
  With Worksheets("Tabelle2").Cells(3, Columns.Count).End(xlToLeft).Offset(, 1)
    .Parent.Paste .Cells(1)
    .Resize(, 2).EntireColumn.AutoFit
  End With
  Application.CutCopyMode = False
End Sub

Gruß Uwe