ich möchte gern das Format übertragen ohne zu Selectieren.
Range("J1:P40").Select
Application.CutCopyMode = False
Selection.Copy
Range("A1").Select
ActiveSheet.PasteSpecial Format:=4, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Kann mir jemand mit dem richtigen VBA-Code weiterhelfen?
Danke
Gruß
Karsten