| Von |
Tiamat |
| Am |
18. Februar 2008 um 17:58:54 |
| Frage |
Hallo,
eine Frage, wie kann ich mein Script dazu bringen von vorne zu starten? Habe mal ein Beispielscrip:
betrag = InputBox("Geben Sie den Netto-Betrag ein!") ' Betrag erfragen
mwst = 1.19 ' 19% MwSt.
netto = betrag / 100 * 119
gewinn = netto / 100 * 130
ergebnis = "Gesamt:" & vbTab & vbTab & FormatCurrency(gewinn) & vbNewLine
ergebnis = ergebnis & "+19% MwSt:" & vbTab & FormatCurrency(betrag - netto) & vbNewLine
ergebnis = ergebnis & "Nettot:" & vbTab & vbTab & FormatCurrency(betrag)
MsgBox ergebnis,,"Verkaufspreis"
antwort = msgbox("Wollen sie das Programm nochmal starten?",_
vbYesNo + vbQuestion, "Frage")
if antwort = vbYes then
wscript.echo "OK"
else
wscript.echo "dann nicht"
end if
Es kommt nur die Meldung "ok" und programm endet, wie baue ich da eine sprungmarke oder so ein??
MFg
Frank |
|
Zum Seitenanfang