Mit folgendem Codeauszug werden Daten in ein neues Worksheet uebertragen. Nun moechte ich jedoch, dass Werte und Formate uebernommen werden, die Formeln aber nicht.
Leider funktioniert meine Erweiterung (mit ' gekennzeichnet) nicht.
Wie muesste es richtig lauten? Kenne VBA fast nur mit Recorder und verstehe leider meine italienische Hilfe nicht ausreichend, sonst kaeme ich vielleicht selbst auf den Trichter...
Wer kann mir helfen?
With ZiWbk.Sheets(1).Name = CasaEstero & Data
QuWbk.Sheets("ESTRATTO").Range(rngCasaCopy.Address).Copy _
Destination:=.Range("A2")'.PasteSpecial.xlPasteFormulas = False
QuWbk.Sheets("ESTRATTO").Range(rngIntestazione.Address).Copy _
Destination:=.Range("A1")
End With