Working Paper Series - Institut für Finanzwirtschaft - Technische ...

Appendix B: Programmcode der Excel-Makros XIX
Appendix B: Programmcode der Excel-Makros
1. Makro für den einfachen Durchlauf des Solvers zur Zinsbestimmung
Sub Einfacher_Solverdurchlauf()
Dim i As Integer, SetCell As Range, ByChangingCell As Range, ValueCell As Range
Dim WachsME As Range, WachsBK As Range, WachsIK As Range, WachsVK As Range,
WachsMAW As Range
Set SetCell = Range("D5")
Set ByChangingCell = Range("B5")
Set ValueCell = Range("C5")
Set WachsME = ActiveSheet.Range("I6")
Set WachsBK = ActiveSheet.Range("I7")
Set WachsIK = ActiveSheet.Range("I8")
Set WachsVK = ActiveSheet.Range("I9")
Set WachsMAW = ActiveSheet.Range("I10")
Worksheets("MietE").Range("D2").Value = WachsME
Worksheets("BetriebsK").Range("D2").Value = WachsBK
Worksheets("InstandhaltungsK").Range("D2").Value = WachsIK
Worksheets("VerwaltungsK").Range("D2").Value = WachsVK
Worksheets("MietausfallW").Range("D2").Value = WachsMAW
Application.ScreenUpdating = False
For i = 1 To 636
SolverReset
SolverOk SetCell:=SetCell.Address(True, True), _
ByChange:=ByChangingCell.Address(True, True), _
MaxMinVal:=3, ValueOf:=CStr(ValueCell.Value)
SolverSolve UserFinish:=True
Set SetCell = SetCell.Offset(1, 0)
Set ByChangingCell = ByChangingCell.Offset(1, 0)
Set ValueCell = ValueCell.Offset(1, 0)
Next i
Application.ScreenUpdating = True
MsgBox ("Solver beendet")
Range("F5").Select
End Sub