VBA - Zelladresse mit Zeilennummer angeben
10.08.2018 15:07:08
rc
ich habe mir in einer Excel-Arbeitsmappe über eine Funktion die Zeilennummer einer bestimtmen Zeile angeben lassen. Das Ergebnis erscheint als Zahl in einer Zelle, also steht bspw. in E1 der Wert 45.
Nun möchte ich mit VBA einen Zellbereich kopieren, der immer von A4 bis F* reicht. * soll dabei durch die Zahl, die in E1 steht, ersetzt werden.
Wie muss dazu mein Code aussehen? Ich habe es folgendermaßen versucht aber das klappt nciht...
Dim PivotRow As Integer
Dim PivotRange As Range
PivotRow = Worksheets("PIVOT").Range("e1").Value
PivotRange = "A4:F" & CStr(PivotRow)
worksheets("PIVOT").Range(PivotRange).Copy _
Destination:=Worksheets("Monday").Range("A3")
Vielen Dank im Voraus!