|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.11.2009 14:53:35 |
Patti |
|
|
 Aw:durch vbYesNo Anwendung neu durchlaufen |
07.11.2009 13:11:23 |
Holger |
|
|
|
11.11.2009 07:57:21 |
Sheik |
|
|
|
11.11.2009 15:39:36 |
Patti |
|
|
Von:
Holger |
Datum:
07.11.2009 13:11:23 |
Views:
821 |
Rating:
|
Antwort:
|
Thema:
Aw:durch vbYesNo Anwendung neu durchlaufen |
Hallo Patti,
Do
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
Frage=msgbox("Wollen Sie weiterrechnen?", vbYesNo)
loop while frage=vbyes
Gruß
Holger
Patti schrieb am 05.11.2009 14:53:35:
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 |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.11.2009 14:53:35 |
Patti |
|
|
Aw:durch vbYesNo Anwendung neu durchlaufen |
07.11.2009 13:11:23 |
Holger |
|
|
|
11.11.2009 07:57:21 |
Sheik |
|
|
|
11.11.2009 15:39:36 |
Patti |
|
|