Hallo Zusammen,
ich habe mir ein Makro aufgezeichnet, welches Werte aus einer Tabelle in ein anderes Tabellenblatt kopiert. Die Werte in der Ursprungstabelle ändere ich aber ständig und ich will, dass beim aktivieren des Makros, die zuvor kopierten Werte nicht überschrieben werden sondern neben den bereits "archivierten" Werten eingefügt wird.
So sieht das Makro bis jetzt aus:
Sub test()
' test Makro
Range("C5:D19").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tabelle2").Select
Range("A7:B8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("A18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tabelle2").Select
Application.CutCopyMode = False
Range("C7:C19").Select
Selection.ClearContents
Range("C7").Select
Sheets("Tabelle1").Select
Range("D2").Select
Sheets("Tabelle2").Select
End Sub
Problem ist, dass die alten Werte in dem neuen Tabellenblatt immer überschrieben werden.
Könnt Ihr mir eine Funktion nennen, damit die Werte nicht überschrieben werden, sondern bei jedem mal ausführen des Makros die Werte in eine neue Spalte kopiert werden.
Vielen Dank im Voraus.
Grüße
Stephan