okay, die berechnung für die lineare abschreibung habe ich hinbekommen, allerdings weiß ich nicht wo bzw wie ich die degressive abschreibungsmethode einbaue.
so schaut das ganze bisher aus:
Zitat:
Option Explicit
'Variablen
Dim ND$, AB!, AK!, RBW!, AM, ASatz!, Jahr%, Frage
Sub Abschreibungsrechner()
'Auswahl Abschreibungsmethode
AM = InputBox("Möchten sie die lineare Abschreibungsmethode nutzen? Bestätigen sie mit [ja] oder geben [nein] ein um die degressive Abschreibungsmethode zu nutzen.")
'Verarbeitung der AM
If AM = "ja" Then
AM = "lineare AM"
Else
AM = "degressive AM"
End If
If AM = "degressive AM" Then
ASatz = InputBox("Abschreibungssatz:")
Else
ASatz = 0
End If
'Eingabe lineare Abschreibung
Do
Do
AK = InputBox("Anschaffungskosten:")
If AK > 1000000 Then MsgBox "Die Anschaffungskosten dürfen maximal 1000000 betragen."
Loop Until AK <= 1000000
ND = InputBox("Nutzdauer:")
Do While ND > 20
MsgBox "Die Nutzungsdauer darf maximal 20 Jahre betragen."
ND = InputBox("Nutzungsdauer:")
Loop
'Berechnung lineare Abschreibung
AB = AK / ND
MsgBox "Abschreibungsbetrag: " & FormatCurrency(AB)
'Löschen des Ausgabebereiches
Range("A4:C39").Select
Selection.ClearContents
Range("A1").Select
'Ausgabe der Abschreibung
RBW = AK
For Jahr = 1 To ND Step 1
RBW = RBW - AB
Cells(3 + Jahr, 1) = Jahr
Cells(3 + Jahr, 2) = AB
Cells(3 + Jahr, 3) = RBW
Next
'Frage nach Berechnungswiederholung
Frage = MsgBox("Möchten sie eine neue Berechnung?", vbYesNo)
Loop Until Frage = 7
End Sub
|
wenn man die lineare abschreibungsmethode nutzt, funktioniert es.
so ich versuche mal so gut wie möglich zu erklären was ich jetzt noch einbauen möchte.
beispiel für die degressive abschreibung:
anschaffungskosten: 10000
nutzungsdauer:15Jahre
abschreibungssatz. 25%
RBW=Restbuchwert
Berechnung im 1. Jahr:
AB=AK/100*AS
AB=10000/100*25
AB=2500
RBW1=AK-AB
RBW1=10000-2500
RBW1=7500
Berechnung im 2. Jahr:
AB=RBW1/100*AS
AB=7500/100*25
AB=1875
RBW2=RBW1-AB
RBW2=7500-1875
RBW2=5625
im dritten jahr nutzt man dann den RBW2 und ersetzt den RBW1 in der ersten formel. wenn denn der RBW3 berechnet werden soll, setzt man den RBW2 ein und den berechneten AB.
das ganze soll sich solange hinausziehen bis eingegebene anzahl von jahren erreicht ist, ohne zwischendurch erneut eingaben machen zu müssen.
das ganze soll dann in der excel tabelle übersichtlich zu sehen sein, welches ich bei der linearen abschreibung hinbekommen habe.
Edit: es ist mir ein fehler am anfang aufgefallen, aber den kriege ich auch nicht behoben. bei der entscheidung nach der methode ist es nämlich so, dass wenn man etwas anderes als nein oder ja eingetippt wird die lineare abschreibungsmethode verwendet wird. ich habe zwar versucht die wenn-funktion abzuändern, aber irgendwas mache ich da falsch.