weiss jemand, wie man es schreiben muss, damit ganze Zellblöcke kopiert werden. Oder existiert nur die Lsg, jede Zelle einzeln zu kopieren?
Merci
thomas
Sub bspdatacopy()
Application.ScreenUpdating = False
Dim ws As Worksheet
Set ws = Sheets("Beispieldaten")
With Sheets("Rechenblatt")
.Range("c10") = ws.Range("a1")
.Range("c12") = ws.Range("a2")
.Range("f14") = ws.Range("a3")
.Range("h14") = ws.Range("a4")
.Range("f16") = ws.Range("b3")
.Range("h16") = ws.Range("b4")
.Range("f47:l48") = ws.Range("a5:d6")
.Range("f52:f57") = ws.Range("a7:a12")
.Range("f60:f66") = ws.Range("a13:a19")
.Range("f68") = ws.Range("a20")
End With
End Sub