ich danke vorweg einmal für eure antworten.
ich habe vorhin schonmal angefangen und es tritt das erste problem auf. man muss sich für eine abschreibungsmethode entscheiden, aber ich weiß nicht, ob ich die formel danach in die wenn-funktion mit einbauen muss oder danach eine neue wenn-funktion erstellen muss, die je nachdem welche funktion ich ausgesucht habe, die berechnung nutzt.
die gleichung für die lineare abschreibung lautet:
AB=AK/ND
bei der degressiven abschreibung sieht die formel so aus:
AB=AK/100*AS
das zweite problem habe ich auch schon entdeckt. die formel der degressiven abschreibung ändert sich jedes jahr.
1. Jahr: AB=AK/100*AS
2. Jahr: AB=RBW/100*AS
(zum verständnis die sich in rechnungswesen nicht auskennen. man nutzt bei der degressiven abschreibung im zweiten jahr den verbleibenden RBW(restbuchwert), weil man den AB(Abschreibungsbetrag) von den AK(Anschaffungskosten) abzieht.)
Das ist mein Anfang:
Option Explicit
'Variablen
Dim ND$, AB!, AK!, RBW!, AM, ASatz
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
'Eingabe der Variablen
AK = InputBox("Geben sie die Höhe der Anschaffungskosten an:")
ND = InputBox("Geben sie die Nutzdauer ein:")
End Sub
ich nehme jede hilfe gerne an
Edit: ich weiß nicht welchen datentyp ich AM(Abschreibungsmethode) zuordnen soll bzw. welches zeichen dahinter muss. es werden nur buchstaben verwendet, da man in dem zugehörigen eingabefeld nur "ja" oder "nein" eingibt