Используйте значение из одной ячейки, чтобы определить «координаты» другой ячейки

Question

Я хочу использовать значение одной ячейки, например, 3, чтобы указать координаты другой ячейки.

Это то, что я пробовал:

Wert = Range("E22").Value
Sheets("Tabelle2").Range("A1:BWert").Copy

Answer 1

Когда координаты ячейки вычислены, вам будет удобнее указать ячейки как `Ячейки ([Строка], [Столбец]) и определить диапазон по его первой и последней ячейке. Когда вы используете этот синтаксис, ваша задача будет решена следующим образом: -

With Sheets("Tabelle2")
    .Range(.Cells(1, 1), .Cells(Wert, 2)).Copy
End With

Вариант, приведенный ниже, эквивалентен и, возможно, легче для чтения для новичка. Однако это логически противоречиво, потому что буквы столбцов не могут быть вычислены.

With Sheets("Tabelle2")
    .Range(.Cells(1, "A), .Cells(Wert, "B")).Copy
End With

Answer 2

Я попробовал это в моем реальном коде, и он действительно скопировал его, однако он вставил его из A1 и A1 в J1 и J2. Вот весь мой код: предполагалось скопировать диапазон A1: B10 из Таблицы2 в A1: B10 в Таблице 3.
Как это можно сделать?

Option Explicit


Sub Kopieren()
Dim Wert As Integer


Wert = Range("E22").Value


Sheets("Tabelle2").Range("A1:B" & Wert).Copy
Sheets("Tabelle3").Range("A1:B" & Wert).PasteSpecial xlPasteValues, Transpose:=True





End Sub```