Kostenvoranschlag in VBS erstellen?
Hallo,
ich habe mal wieder eine Frage zu VBS.
Ich würde gerne, in VBS, wie bei einem Kostenvoranschlag in Excel, 5 Beträge und Anzahl der Arbeitsstunden per InputBox eingeben (Stundenlohn als fester Wert) die er dann zusammen rechnet, eine Zwischensumme ausgibt und davon dann einen Rabatt, den ich auch mit einer InputBox eingebe, abzieht. Dann soll er zu diesem Betrag noch Versand und 19,00% MwSt drauf rechnen und den Endbetrag in einer MsgBox ausgeben.
Beispiel: Wert1 + Wert2 + Wert3 + Wert4 + Wert5 + Anzahl AS = Zwischensumme - Rabatt + Versand + MwSt = Endbetrag
Kann mir evtl. jemand sagen ob das so überhaupt möglich ist bzw. wenn es möglich ist einen Code bereitstellen?
vielen Dank im Vorraus
MfG Der Wieland
3 Antworten
Hallo,
das würde ich nicht mit VBS machen, zum einen, die Abfragen und Berechnungen sind nicht kompliziert und zum Anderen wäre ein KV mit einer VBS-Lösung zu starr, um nachher noch x Sonderfälle zu berücksichtigen.
In der Vorlagen-Sammlung von MS Office ist eine Rechnung enthalten, aus der du deinen KV in kurzer Zeit erstellen kannst. Zur Not kann ich dir dabei etwas helfen. Melde dich einfach nochmals, wenn du dazu Hilfe brauchst, oder die Vorlage nicht findest.
Distel
Hallo,
Excel ist für mich kein Problem (s. Bild).
Trotzdem danke für das Angebot.
Könnte ich dir machen, aber wo ist das Problem, das ist doch recht simpel?
Ok, ich frage mich gerade, warum du dich dann für VBS entschieden hast xD
Spätestens morgen Abend steht dann hier irgendwo der Code, guck einfach mal vorbei ;)
das kann ich dir auch beantworten, ich habe hier schonmal angefragt zwecks eines VBS codes für einen Kundenauftrag und ich habe die Hoffnung, dass ich das hier dann irgendwie in den Auftrag einbinden kann.
Das wäre sehr freundlich von dir =)
vielen Dank im vorraus
MfG
Ok, ich habe noch eine Frage: Sind die Versandkosten immer gleich (wenn ja wie hoch?) oder soll man die auch eingeben können?
Oh, dich habe ich ganz vergessen... :( Mach ich dir!
Da leider keine Antwort mehr kam habe ich mich mal selbst dran gesetzt und habe es jetzt endlich hinbekommen.
es ist zwar nicht ganz so wie ich das wollte und ist ein bisschen umständlich zu bedienen, (Verbesserungsvorschläge setze ich gerne um), aber es tut was es soll.
Falls jemand auch so etwas sucht oder einen Verbesserungvorschlag hat hier der Code:
Dim Wert1
Dim Wert2
Dim Wert3
Dim Wert4
Dim Wert5
Dim ZwischensummeArtikel
Dim ZwischensummeStunden
Dim Summe1
Dim Mehrwertsteuer
Dim Arbeitsstunden
Dim Stundenlohn
Dim Ausgangswert
Dim Rabatt
Dim Ergebnis
Wert1 = InputBox("Artikel 1")
Wert2 = InputBox("Artikel 2")
Wert3 = InputBox("Artikel 3")
Wert4 = InputBox("Artikel 4")
Wert5 = InputBox("Artikel 5")
ZwischensummeArtikel = CInt(Wert1) + CInt(Wert2) + CInt(Wert3) + CInt(Wert4) + CInt(Wert5)
Arbeitsstunden = InputBox("Stunden?")
Stundenlohn = InputBox("Euro/Stunde?")
ZwischensummeStunden = CInt(Arbeitsstunden) * CInt(Stundenlohn)
Summe1 = CInt(ZwischensummeArtikel) + CInt(ZwischensummeStunden)
Mehrwertsteuer = MsgBox ("Mehrwertsteuer dazu rechnen?", vbYesNo, "Bestätigen")
If Mehrwertsteuer = vbNo Then MsgBox(CStr(Summe1)), vbCritical, "Ohne MwSt"
If Mehrwertsteuer = vbYes Then MsgBox(CInt(Summe1) + CInt(ZwischensummeArtikel / 100 * 19)), vbOKOnly, "Mit MwSt"
Rabatt = MsgBox ("Rabatt abziehen?", vbYesNo, "Bestätigen")
If Mehrwertsteuer = vbNo Then MsgBox(CStr(Summe1)), vbCritical, "Ohne MwSt und Rabatt"
If Mehrwertsteuer = vbYes Then Rabatt = InputBox("Rabatt in Prozent")
Ausgangswert = InputBox("Betrag eingeben")
Ergebnis = MsgBox(CInt(Ausgangswert) - (CInt(Ausgangswert) / 100 * CInt(Rabatt)))
das Problem liegt darin, dass ich nicht viel Ahnung von der Materie habe.