kopieren mit variablen
25.08.2020 09:31:19
johannes
ich möchte gerne einen Bereich von Tabelle1 nach Tabelle 2 kopieren.
Jedoch ist der Bereich in Tabelle 1 variabel.
Mein Ansatz wäre, dass ich in Tabelle2 G1 definiere von wo das Makro kopieren soll.
Beim Ausführen des Makros, soll dann der Wert von der Definition aus T2, G1 genommen werden und der Range dann von T1 in T2 kopiert werden.
Also so in etwa:
Sub Kopieren_test()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsA As Worksheet: Set WsA = Wb.Worksheets("allocation_item")
Dim WsB As Worksheet: Set WsB = Wb.Worksheets("test")
Dim a As String
a = WsB.Range("G1").Value
WsA.Range("a" & ":BK").Copy Destination:=WsB.Range("B5")
End Sub
Kann mir hier einer weiterhelfen?
Vielen Dank
Grüße
J