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

Weitere Magazine

Empfehlungen

Info

Appendix B: Programmcode der Excel-Makros XX 2. Makro <strong>für</strong> die Berechnung der Diskontierungszinssätze im Szenario Sub DZS_Szenarien_ErtragsW() Dim i As Integer, d As Integer, SetCell As Range, ByChangingCell As Range, ValueCell As Range Dim DZS As Range, WachsME As Range, WachsBK As Range, WachsIK As Range, WachsVK As Range, WachsMAW As Range Dim DZSWert As Range Set DZSWert = Worksheets("Szenarien_DSZ ErtragsW als RW").Range("C9") Set WachsME = Worksheets("Szenarien_DSZ ErtragsW als RW").Range("C2") Set WachsBK = Worksheets("Szenarien_DSZ ErtragsW als RW").Range("C3") Set WachsIK = Worksheets("Szenarien_DSZ ErtragsW als RW").Range("C4") Set WachsVK = Worksheets("Szenarien_DSZ ErtragsW als RW").Range("C5") Set WachsMAW = Worksheets("Szenarien_DSZ ErtragsW als RW").Range("C6") Application.ScreenUpdating = False For d = 1 To 21 Set DZS = Range("F5") Set SetCell = Range("D5") Set ByChangingCell = Range("B5") Set ValueCell = Range("C5") 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 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) DZSWert = DZS Set DZS = DZS.Offset(1, 0) Set DZSWert = DZSWert.Offset(1, 0)
Appendix B: Programmcode der Excel-Makros XXI i = 1 Next i Set WachsME = WachsME.Offset(0, 1) Set WachsBK = WachsBK.Offset(0, 1) Set WachsIK = WachsIK.Offset(0, 1) Set WachsVK = WachsVK.Offset(0, 1) Set WachsMAW = WachsMAW.Offset(0, 1) Set DZSWert = DZSWert.Offset(-636, 1) Set SetCell = SetCell.Offset(-636, 0) Set ByChangingCell = ByChangingCell.Offset(-636, 0) Set ValueCell = ValueCell.Offset(-636, 0) Next d Application.ScreenUpdating = True MsgBox ("Szenario Berechung beendet") Range("F5").Select
Seite 1 und 2:
No.: FW23V1/06 First Draft: 2006-06
Seite 3 und 4:
1. Einleitung 1 Die Ermittlung von
Seite 5 und 6:
2. Bestimmung des Diskontierungszin
Seite 7 und 8:
5 schnittswerte angegeben. Vor dem
Seite 9 und 10:
3. Wertermittlungsverfahren 7 Die W
Seite 11 und 12:
9 Wert für ein Objekt zu einem bes
Seite 13 und 14: 11 In Abbildung 4 wird der schemati
Seite 15 und 16: 13 vor allem Mieterträge und Pacht
Seite 17 und 18: 15 auf die Höhe des anzusetzenden
Seite 19 und 20: 17 de des Betrachtungszeitpunkts. 4
Seite 21 und 22: 19 dung des Diskontierungszinssatze
Seite 23 und 24: 21 Restwertes. In Abbildung 5 werde
Seite 25 und 26: 23 Für die Auswertungen wurden nur
Seite 27 und 28: 25 In Tabelle 7 wird auf die Aussta
Seite 29 und 30: 27 Werte jedoch erst bei der Ermitt
Seite 31 und 32: 29 Ursache für die große Streuung
Seite 33 und 34: 10,00 9,00 8,00 7,00 6,00 5,00 4,00
Seite 35 und 36: 33 Die Kernfrage lautet daher, wohe
Seite 37 und 38: 35 wird. In dieser Analyse wurde mi
Seite 39 und 40: 37 Die Mietsteigerung von 1% pro Ja
Seite 41 und 42: 6. Analyse der mikro- und makroöko
Seite 43 und 44: 41 LÄCHENUMSATZ auf der anderen Se
Seite 45 und 46: 43 Zinssatz sinken. Das positive Vo
Seite 47 und 48: 45 zu erwarten sein. Dieser lässt
Seite 49 und 50: 47 Der Einfluss der korrelierenden
Seite 51 und 52: 49 chenrichtig eingeführt. Jedoch
Seite 53 und 54: Appendix A: Mathematischer Anhang I
Seite 55 und 56: Appendix A: Mathematischer Anhang X
Seite 63: Appendix B: Programmcode der Excel-
Seite 67 und 68: Appendix D: Übersichtskarte der un
Seite 69 und 70: Appendix F: Korrelationstabelle all
Seite 71 und 72: Appendix G: Koeffizienten zu den Re
Seite 73 und 74: Appendix H: Übersicht möglicher M
Seite 75 und 76: Literaturverzeichnis XXXI Sandner,
Seite 77: Literaturverzeichnis XXXIII Sevices
Alle anzeigen

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

Erfolgreiche ePaper selbst erstellen

Template löschen?

Als Template speichern?