habe da mal eine Frage:
Ich Kopiere mehrere Bereiche von einem Sheet zum anderen, mit folgenden Code
Worksheets("Projektdaten").Activate
Range(Cells(zeile, "L"), Cells(zeile, "BQ")).Copy
Worksheets("Projektplan").Range("C13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
_
Transpose:=True
Range(Cells(zeile, "BR"), Cells(zeile, "BU")).Copy
Worksheets("Projektplan").Range("G15").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
_
Transpose:=True
da folgen noch ungefähr 10 Kopiervorgänge mit copy-paste.
das funktioniert, auch soweit ganz gut, bloß ist es ziemlich umständlich und dauert, und das hin und her schalten zwischen den Sheets, ist auch nicht wirklich toll.
Gibt es eine Möglichkeit das ganze zu vereinfachen.
Für Vorschläge, wäre ich Dankbar.
Danke.