Cope/Paste Formatierung untersch. Zeilengrö
29.05.2018 16:19:26
Andi
ich habe folgendes Problem.
Ich möchte gerne die Formatierung von einer Tabelle mit z.B. 10 Zeilen auf eine andere Tabelle mit 10+x Zeilen anwenden.
Leider wird die Formatierung nur bis zur 10. Zeile übertragen. Die Restlichen bleiben im alten Format...
' Formatierung (Zellenausrichtung) übertragen
Workbooks(sNameTemplateDatei).Activate
Worksheets(sNameTemplateBlatt).Select
Range("Tabelle1[#All]").Select
Selection.Copy
Workbooks(sNameUrsprungsDatei).Activate
Worksheets(sNameUrsprungsBlatt).Select
Range("Tabelle1[#All]").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Danke.