|
Hallo,
ich habe zwei Arbeitsblätter in einer Arbeitsmappe, seien sie A und B.
Ich möchte von Arbeitsblatt A in die Arbeitsblatt B einen Zellenbereich kopieren, ohne Blattwächsel. Das Problem ist, dass der Bereich nicht fest ist, der wird vorab ermittelt. Und bei kopieren sollen keine Funktionen kopiert werden, sondern nur die Werte.
Ich wollte das Problem folgenderweise lösen:
Dim lastRow As Int
Dim lastColumn As Int
lastRow = Worksheets("A").UsedRange.SpecialCells(xlCellTypeLastCell).Row
lastColumn = Worksheets("A").UsedRange.SpecialCells(xlCellTypeLastCell).Column
Worksheets("A").Range(Cells(34, 30), Cells(lastRow, lastColumn)).Copy
Worksheets("A").Range("A18").PasteSpecial xlPasteValues
Das funktioniert aber nicht, weil hier man die Arbeitsblätter wächseln muss .
Hat jemand eine Idee?
|