Zahl in ActiveSheet.Range("2:5") d. Var ersetzen
14.06.2007 08:46:00
Peter
Ich möchte in der letzten Codezeile eine Variable integrieren: Die Zahl 5 soll durch die Variable letzteZeile ersetzt werden. Ich dachte es müsse lauten:
ActiveSheet.Range("2:"& letzteZeile &""").Copy Destination:=ActiveCell
Doch das funktioniert nicht.
Wer kann mir die korrekte Syntax verraten?
Danke, Peter
Sub BereichKopieren()
Dim letzteZeile As Long
letzteZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
ActiveSheet.Range("2:5").Copy Destination:=ActiveCell