PasteSpecial-Mehtode des Range ...

Sub CoV_1Schritt()
Dim i, j As Long
Dim letzteZeile As Long
Dim Arbeitsmappe As Workbook
Dim Datenbasis As Worksheet
Dim Ziel As Worksheet
Dim Bereich As Range
Dim WsF As WorksheetFunction
Set Arbeitsmappe = ThisWorkbook
Set Datenbasis = Arbeitsmappe.Worksheets("Performance")
Set Ziel = Arbeitsmappe.Worksheets("VaR_delta_normal")
Set Korrel_Daten = Arbeitsmappe.Worksheets("Hardcopy")
Set Bereich = Datenbasis.Range("b300:y305")
Set Bereich_K1YR = Korrel_Daten.Range("DP38:EM61")
Set Bereich_K3YR = Korrel_Daten.Range("DP71:EM94")
Set Bereich_K5YR = Korrel_Daten.Range("DP104:DP127")
Set WsF = Application.WorksheetFunction
letzteZeile = Datenbasis.Cells(Rows.Count, 1).End(xlUp).Row
'MsgBox letzteZeile
Datenbasis.Activate
' mean returns
'mean return 1 Jahr
For i = 2 To 25
Cells(300, i) = WsF.Average(Range(Cells(letzteZeile - 11, i), Cells(letzteZeile, i)))
Next i
'mean return 3 Jahre
For i = 2 To 25
Cells(301, i) = WsF.Average(Range(Cells(letzteZeile - 35, i), Cells(letzteZeile, i)))
Next i
'mean return 5 Jahre
For i = 2 To 25
Cells(302, i) = WsF.Average(Range(Cells(letzteZeile - 59, i), Cells(letzteZeile, i)))
Next i
' standard deviation
'standard deviation 1 Jahr
For i = 2 To 25
Cells(303, i) = WsF.StDev(Range(Cells(letzteZeile - 11, i), Cells(letzteZeile, i)))
Next i
'mean return 3 Jahre
For i = 2 To 25
Cells(304, i) = WsF.StDev(Range(Cells(letzteZeile - 35, i), Cells(letzteZeile, i)))
Next i
'mean return 5 Jahre
For i = 2 To 25
Cells(305, i) = WsF.StDev(Range(Cells(letzteZeile - 59, i), Cells(letzteZeile, i)))
Next i
'copy transpose paste
Bereich.Copy
Ziel.Activate
Cells(4, 2).PasteSpecial Transpose:=True
'Copy past Corr Matrizen
Bereich_K1YR.Copy
Ziel.Range("J4").PasteSpecial
Bereich_K3YR.Copy
Ziel.Range("J26").PasteSpecial
Bereich_K5YR.Copy
Ziel.Range("J48").PasteSpecial
End Sub