Hallo Michi,
teste mal:
Public Sub Rechnung_archivieren()
Dim loLetzteR As Long
Dim loLetzteA As Long
Dim raBereich As Range
With Worksheets("Tabelle1")
loLetzteA = Worksheets("Statistik").Cells(Rows.Count, 1).End(xlUp).Row + 1
loLetzteR = .Cells(.Rows.Count, 1).End(xlUp).Row
Set raBereich = .Range(.Cells(22, 1), .Cells(loLetzteR, 8))
raBereich.Copy Worksheets("Statistik").Cells(loLetzteA, 1)
Worksheets("Statistik").Cells(loLetzteA, 9).Resize(raBereich.Rows.Count) = .Cells(12, 8)
Worksheets("Statistik").Cells(loLetzteA, 10).Resize(raBereich.Rows.Count) = .Cells(13, 8)
End With
End Sub
Gruß Werner
|