Hallo,
da ist mir ein Schreibfehler rein gerutscht.
das hier
Set raRange = Nothing
muss so heißen
Set raRng = Nothing
Der Kopierbereich wird hier festgelegt:
Set raRng = .Range(.Cells(7, 1), .Cells(loLetzteQ, 13))
Bei der Cells Schreibweise ist die erste Zahl in der Klammer die Zeile, die zweite Zahl ist die Spaltennummer
Cells(7, 1) = Zelle A7
Cells(loLetzteQ, 13) = loLetzteQ ist eine Variable, die die zuvor ermittelte Zeilennummer der letzten belegten Zelle in Spalte A enthält, 13 ist die Spaltennummer für Spalte M
Gruß Werner
|