Hallo an alle!
Ich habe folgendes Problem.
Habe ein Anwendung in Excel geschrieben und will da noch etwas einfügen, dass aber leider nicht funktioniert.
Meine Anwendung:
'Eingabe
Darlehen = InputBox("Bitte geben Sie die Darlehenshöhe ein")
Zinssatz = InputBox("Bitte geben Sie den Zinssatz ein")
Annuität = InputBox("Bitte geben Sie die Annuität ein")
'Bearbeitung
Range("B13:F65") = ""
Do
Zinsen = Darlehen * Zinssatz / 100
Tilgung = Annuität - Zinsen
If Darlehen <= Tilgung Then
Tilgung = Darlehen
Annuität = Tilgung + Zinsen
End If
Darlehen = Darlehen - Tilgung
Jahr = Jahr + 1
'Ausgabe
Cells(13 + Jahr, 2) = Jahr
Cells(13 + Jahr, 3) = Darlehen
Cells(13 + Jahr, 4) = Zinsen
Cells(13 + Jahr, 5) = Tilgung
Cells(13 + Jahr, 6) = Annuität
Loop Until Darlehen = 0
Irgendwie muss ich folgendes einfügen: Frage=msgbox("Wollen Sie weiterrechnen?", vbYesNo)
Wenn "Ja" angegeben wird soll die ganze Anwendung, d.h. die inputbox sollen wieder nachfragen, neu anfangen zu laufen und bei "Nein" soll einfach nichts passieren.
Hab schon mehrere Möglichkeiten versucht, aber irgendwie hängt sich der Pc nur dabei auf oder er gibt mir etwas falsches aus. Bin noch Anfänger :)
Wäre dankbar für jede Hilfe
Leieb Grüße Patti |