[Dancger]

Ich weiss nicht genau was du machen willst.

Aber ich habe mich mal rangesetzt.

Zuerst fragen wir ab welche Methode der Benutzer will:

'Auswahl treffen [0 = linear / 1 = degressiv]
Auswahl = InputBox("Möchten Sie die lineare Abschreibung [Ja] oder die degressive Abschreibung [Nein]", "Bitte eine Auswahl treffen").ToString

'Ausrechen
If Auswahl.ToLower = "ja" Then
Rechen_Linear()
ElseIf Auswahl.ToLower = "nein" Then
Rechnen_Degressiv()
Else
MessageBox.Show("Falsche Eingabe", "Achtung")
End If

Danach brauchen wir die 2 Sub's, einmal eine für die lineare und einmal für die degressive Abschreibung.

Der Code für die lineare Abschreibung sieht so aus:

Private Sub Rechen_Linear()
'Eingaben
AK = CDbl(InputBox("Geben sie die Höhe der Anschaffungskosten an:"))
ND = CDbl(InputBox("Geben sie die Nutzdauer ein:"))
'Ausgabe
MessageBox.Show("Ausrechnung der linearen Abschreibung: " & ((AK / ND).ToString), "Ausgabe")
End Sub

Bei der zweiten (degressiven Abschreibung) bin ich nicht sicher, da ich dich nicht komplett verstehe. Muss noch mehr ausgerechnet werden, oder stimmt das:

Private Sub Rechnen_Degressiv()
'Abfrage welches Jahr
Jahr = CInt(InputBox("In welchen Jahr befinden wir uns? Im ersten Jahr [1] oder bereits im zweiten oder mehr [0]"))
If Jahr = 1 Then
'Eingabe
AK = CDbl(InputBox("Geben sie die Höhe der Anschaffungskosten an:"))
ASatz = CDbl(InputBox("Geben sie den ASatz ein:"))
'Ausgabe
MessageBox.Show("Ausrechnung der degressiven Abschreibung im ersten Jahr: " & ((AK * 100 / ASatz).ToString), "Ausgabe")
ElseIf Jahr = 0 Then
'Eingabe
RBW = CDbl(InputBox("Geben sie den Restbuchwert ein:"))
ASatz = CDbl(InputBox("Geben sie den ASatz ein:"))
'Ausgabe
MessageBox.Show("Ausrechnung der degressiven Abschreibung im ersten Jahr: " & ((RBW * 100 / ASatz).ToString), "Ausgabe")
Else
MessageBox.Show("Falsche Eingabe", "Achtung")
End If
End Sub

Wenn du mir das ganze erklärst, kann ich dir sicher helfen

Mfg Dancger