Buchwert bei degressiver Abschreibung berechnen

Guten Abend liebes Forum
Ich versuche das Thema Stille Reserven für Treuhänder zu vereinfachen. Dazu möchte ich ein einfaches File erstellen, welches unter anderem das Thema Anlagebuchhaltung abdeckt.
Ich erfasse also ein Anlagegut mit den Stammdaten wie Anschaffungswert, Anschaffungsjahr und Nutzungsdauer. Dazu unterscheide ich nun zwischen der steuerlichen Abschreibung (40% auf den Buchwert = degressiv) und der betriebswirtschaftlichen Abschreibung (nach Nutzungsdauer = linear).
Ich kenne die Funktion =GDA, welche mir den Abschreibungsbetrag berechnen kann, welcher in einer bestimmten Periode anfällt. Was ich aber suche ist eine Formel, die mir bei degressiver Abschreibung den Buchwert zeigt, welcher z.B. am Ende des 6. Jahres in der Bilanz stehen müsste. Mit so einer Formel könnte ich darauf verzichten, die ganze History des Anlageguts mitzuschleppen.
Natürlich würde ich dann die gleiche Formel versuchen abzuleiten für die Lineare Methode, denn da ergibt sich ja das gleiche Problem.
Wisst ihr, ob es eine solche Formel gibt? Ich bedanke mich herzlich für eure Rückmeldungen.
Beste Grüsse
Marcel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jack_D
Besten Dank für deine Antwort. Vor meinem Forumeintrag bin ich auch auf der von dir empfohlenen Seite gelandet. Leider konnte ich daraus keine Formel ableiten. Auch hier arbeitet der Autor mit einer fortlaufenden Tabelle, was ich eben nicht möchte, da sonst die ganze Datenhistory immer mitgeschleppt werden muss.
Die Formel die ich suche soll nicht von einer Datentabelle abhängig sein. Das heisst aber, dass sie trotzdem alle vorangegangenen Buchwertberechnungen berücksichtigen soll.
Wenn ich deine Antwort lese bin ich voller Hoffnung dass du mir eine solche Formel basteln könntest :-). Es tut mir leid, mein Excel-Latein reicht nicht ganz soweit...
Die "degressiven Prozente" brauchen wir jedoch nicht zu berechnen. Die sind vom Steueramt vorgegeben und betragen 40% in diesem Fall.
Beste Grüsse und herzlichen Dank
Marcel

Public Function DegAbschr(ByVal Anschaffungskosten As Long, ByVal Laufzeit As Single, ByVal _ Abschreibungskoeffizient As Double) AK = Abschreibungskoeffizient BW = Anschaffungskosten LZ = Laufzeit For LZI = 1 To LZ BW = BW * (1 - AK) Next LZI DegAbschr = BW End Function

Beliebteste Forumthreads (12 Monate)

Buchwert bei degressiver Abschreibung berechnen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread