Zelle finden
14.08.2019 12:06:48
Falko
Liebe Experten,
erneut eine Frage, warum mein Makro nicht funktioniert.
Fehler, der angezeigt wird: "Fehler beim Kompilieren: Ungültige Bezeichnung"
Ziel ist es, dass das SaleYear die Zeile speichert, in der der Wert steht, der sich hinter der Variable "Year" befindet.
Sub SensitivitätNEY()
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 Year As Integer
Year = ws.Cells(ws(12, 4).Value)
Dim ii As Integer
For ii = 0 To 20
Dim SaleYear As Long
SaleYear = wsInput.Rows("S:S").Find(What:=Year).Column
ws.Cells(15 + ii, 4).Copy
wsInput.Cells(SaleYear.Row, 20).PasteSpecial Paste:=xlPasteValues
' Sale Price
ws.Cells(15 + ii, 5).Value = wsSummary.Cells(17, 14).Value
' IRR
ws.Cells(15 + ii, 6).Value = wsSummary.Cells(48, 8).Value
' Cash on Cash
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