das folgende Marko funktioniert nicht, der Fehler scheint in folgender Zeile zu sein:
wsInput.Cells(37 + SaleYear.Row, 20).PasteSpecial Paste:=xlPasteValues
Habt ihr eine Idee, was falsch ist?
Tausend Dank und beste Grüße
Falko
Sub Sensi()
Range("E15:g35").ClearContents
Dim ws As Worksheet
Set ws = Worksheets("Sensitivity")
Dim wsInput As Worksheet
Set wsInput = Worksheets("Inputs")
Dim wsSummary As Worksheet
Set wsSummary = Worksheets("Summary")
Dim ii As Integer
For ii = 0 To 20
Dim SaleYear As Range
Set SaleYear = wsInput.Range("S38:S66").Find(ws.Cells(12, 4), lookat:=xlWhole)
ws.Cells(14 + i, 4).Copy
wsInput.Cells(37 + SaleYear.Row, 20).PasteSpecial Paste:=xlPasteValues
ws.Cells(15 + ii, 5).Value = wsSummary.Cells(17, 14).Value
ws.Cells(15 + ii, 6).Value = wsSummary.Cells(48, 8).Value
ws.Cells(15 + ii, 7).Value = wsSummary.Cells(46, 8).Value
Next ii
' Base Case
ws.Cells(25, 4).Copy
wsInput.Cells(SaleYear.Row, 20).PasteSpecial Paste:=xlPasteValues
End Sub