Select, Copy & Paste am Tabellenende
Sebastian
ich habe mir einen Code zusammengebastelt, der die im Betreff genannten Funktionen auch brav durchführt. Problem: wenn ich auf dem Ziel-Tabellenblatt einen Autofilter gesetzt habe, dann schreibt er es in die Zeile nach den Treffern des Autofilters und überschreibt einfach einen Datensatz. Hier der Code:
Private Sub CommandButton2_Click()
Range("L13:L34").Copy
Sheets("Final").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("Tabelle2").Activate
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
Sheets("Tabelle1").Activate
MsgBox "Daten wurden gespeichert!", vbInformation, "Test"
End Sub
Vielen Dank schon mal im Voraus!
Gruß
Sebastian