Tabellen Kopieren und schützen
03.05.2017 10:37:29
Jeremy
folgendes Problem ergibt sich für mich. Ich habe eine Dynamische Tabelle mittels PowerQuery und möchte diese in ein anderes Tabellenblatt kopieren und dort nichtmehr veränderbar machen. Es sollen also keine Aktualisierungen mehr Erfolgen damit ich später Vergleiche machen kann zur Vorwoche. Das Tabellenblatt soll dann erweitert werden mit dem gleichen Prinzip, nur dass ich die Aktuellen Daten dann einfach an die Tabelle(die nicht mehr dynamisch ist) anhänge.
Sub CopyPasteAktuelleTabelle()
' CopyPasteAktuelleTabelle Makro
' Tastenkombination: Strg+Umschalt+N
Range("PIs_und_Besuche").Select
Selection.Copy
Sheets("Zwischentabelle").Select
Dim loLetzte As Long
With Worksheets("Zwischentabelle")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Rows(loLetzte - 11 & ":" & loLetzte).Copy .Rows(loLetzte + 1)
End With
End Sub