Hallo,
ich möchte gerne Zellen kopieren(mit Formeln und Formatierung) ohne dafür copy verwenden zu müssen. Im Augenblick mach ich das so:
Dim rg As Range
With Workbooks("S_Tool(1)")
Set rg = Sheets("Data").Range("AH1:AQ3")
rg.Copy
Sheets("Sverweis-Auswahl").Range("E2").PasteSpecial
End With
Ich würde es aber lieber ohne copy machen so ungefähr:
Dim rg As Range
With Workbooks("S_Tool(1)")
Set rg = Sheets("Data").Range("AH1:AQ3")
Sheets("Sverweis-Auswahl").Range("E2").Resize(rg.Rows.Count, rg.Columns.Count) = rg.Value
End With
Das Problem dabei ist natürlich, dass ich so nur den Text Inhalt bekomme und nicht alle Zellwerte.
Hat jemand eine Idee wie ich das in dem zweiten Beispiel trotzdem hinbekommen könnte ohne copy und ohne das ganze aufzublähen.
Gruß