Hallo!
ich habe folgendes VBA Programm geschrieben:
Option Explicit
Sub Abschreibung()
Dim dauer As Integer
Dim betrag As Double
Dim i As Integer
betrag = InputBox("Restwert ")
dauer = InputBox("Dauer ")
For dauer = dauer To 1 Step dauer - 1
Cells(dauer, 1) = dauer
Cells(dauer, 2) = betrag / dauer
Next dauer
End Sub
Das Programm soll die Laufzeit ausgeben (linke Spalte) und die jährlichen Beträge( rechte Spalte).
Leider funktioniert es nicht da es nur eine Zeile ausgibt statt der gesamten eingegebenen Laufzeit. Könnt ihr mir weiterhelfen ?
Gruß
Alexandro
Hallo Alexandro,
vielelicht hilft das ein bischen:
Hallo!
ich habe folgendes VBA Programm geschrieben:
Option Explicit
Sub Abschreibung()
Dim dauer As Integer
Dim betrag As Double
Dim i As Integer
betrag = InputBox("Restwert ")
dauer = InputBox("Dauer ")
For dauer = dauer To 1 Step dauer - 1
wie wäre es mit
For dauer = dauer To 1 Step - 1
Cells(dauer, 1) = dauer
Cells(dauer, 2) = betrag / dauer
’ Kontrolle
Debug.Print dauer
Debug.Print betrag / dauer
Next dauer
End Sub
Das Programm soll die Laufzeit ausgeben (linke Spalte) und die
jährlichen Beträge( rechte Spalte).
Leider funktioniert es nicht da es nur eine Zeile ausgibt
statt der gesamten eingegebenen Laufzeit. Könnt ihr mir
weiterhelfen ?
Gruß
Alexandro
Anonym
3
Hallo Alexandro
Ich vermute, der Fehler liegt in dieser Anweisung:
Step dauer - 1
Viele Grüße
Carsten
Hallo Nils !
Vielen Dank ! Das funktioniert 100%ig !
Bei weiteren Fragen werde ich hier im Forum posten
Gruß
Alexandro
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]