VBA Schleife
09.10.2005 15:59:17
Christoph
vielen Dank für die Antworten auf meine erste Frage.
Nun habe ich eine zweite die sich auf VBA bezieht.
Zur Automatisierung der Umsatzstatistik möchte ich ein VBA Unterprogramm erstellen zur Berechnung der Gesamtumsätze. Das Unterprogramm hat keine Argumente und ist wie folgt aufgebaut:
Der Benuzer gibt mit Hilfe einer InputBox die jeweils verkaute Menge und in der nächste InputBox den Preis pro Stück ein. Aus diesen beiden Werten berechnet die Prozedur den aus diesem Verkauf erzielten Umsatz(=Preis*Menge).Dieser Umsatz wird zum bisher erzielten Gesamtusatz dazu gezählt. Dann wird der Benutzer mit Hilfe einer MsgBox (mit Ja und Nein Botton)gefragt ob er noch einen Verkauf eingeben möchte.(Fußgesteuerte Schleife)
Bejaht er, so wiederholt sich die im vorigen Absatz dargestellte Anweisung(d.h. der Benutzer wird nach der Menge und dem Preis gefragt, der Einzel- und Gesamtumsatz werden berechnet und der Benutzer wird dannach gefragt, ob er einen weiteren Verkauf eingeben möchte).
Verneint er, so wird ihm der Gesamtumsatz mit Hilfe einer MsgBox angezeigt.
Mein Problem ist hier, den Gesamtumsatz zu errechnen, da er sich ja aus den einzelen Umsätzen aus der Schleife zusammen setzt.
Mein Programm sieht bisher so aus:
Sub Gesamtumsatz()
Dim Menge As Integer
Dim Preis As Single
Dim Umsatz As Single
Dim Gesamtumsatz As Single
Do
Menge = InputBox("Geben Sie die Menge der verkauften Artikel ein:")
Preis = InputBox("Geben Sie den Preis pro Stück ein:")
Umsatz = Menge * Preis
Gesamtumsatz = Umsatz + Umsatz
frage = MsgBox("Wollen Sie einen weiteren Verkauf eingeben?", 36)
Loop Until frage = 7
Call MsgBox("Insgesamt wurde ein Umsatz von " & Gesamtumsatz & " erzielt")
End Sub