|
Hallo,
ich bin Schüler und programmiere gerade eine kleine Excel-VBA-Anwendung.
Und zwar möchte ich, dass das Programm unten in der Message-Box mit den vorgegeben Werten rechnet. Zuvor sollen die Artikel in die Inputboxen eingegeben werden. Das heißt, gebe ich in die Inputbox "artikelzwei" "Chickenburger" ein, so soll das Programm mit 2 (€" rechnen. Wie mache ich das? Vielen Dank.
Sub Aufgabe4()
Dim stag As String
Dim nanzahl As Integer
Dim sgetränk As String
Dim sngartikeleins As Single
Dim sngartikelzwei As Single
Dim sngartikeldrei As Single
Const CChickenburger As Integer = 2
Const CLaugenstange As Integer = 1
Const CBreze As Integer = 0.6
Const CWurstsemmel As Integer = 1.1
Const CGetränk As Integer = 1.3
stag = InputBox("Welcher Tag ist heute?", "Wochentag")
If stag <> "Mittwoch" Then MsgBox ("Leider gilt die Aktion nur am Mittwoch"), vbOKOnly, "Nur mittwochs"
If stag = "Mittwoch" Then nanzahl = InputBox("Wie viele Artikel hat der Schüler gekauft?", "Anzahl der Artikel")
If nanzahl < 3 Then MsgBox ("Sie müssen drei Produkte kaufen!"), vbOKOnly, "Zu wenige Produkte"
If nanzahl > 3 Then MsgBox ("Sie dürfen maximal drei Produkte kaufen!"), vbOKOnly, "Zu viele Produkte"
sgetränk = InputBox("Wurde ein Getränk gekauft? Ja oder Nein?", "Getränk")
If sgetränk = "Nein" Then MsgBox ("Sie müssen ein Getränk kaufen!"), vbOKOnly, "Getränk fehlt"
If sgetränk = "Ja" Then sngartikeleins = InputBox("Geben Sie Artikel 1 ein", "Artikel 1")
sngartikelzwei = InputBox("Geben Sie Artikel 2 ein", "Artikel 2")
sngartikeldrei = InputBox("Geben Sie Artikel 3 ein", "Artikel 3")
MsgBox ("Der Schüler erhält einen Rabatt in Höhe von " & sngarikeleins * 0.2 + sngartikelzwei * 0.2 + sngartikeldrei * 0.2 & " €."), vbOKOnly, "Rabatt"
End Sub
|