|
Hallo,
ich habe geraden ein kleines Excel-Programm geschrieben. Da habe ich einige If-Abfragen drinnen. Mein Problem ist, dass das Programm alle If-Abfragen durchgeht, obwohl eine Bedingung bereits nicht erfüllt ist. Wie sage ich dem Programm, dass es die Abfrage beenden soll, wenn die erste Bedingung nicht erfüllt ist?
Hier der Quellcode:
Sub () 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
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 den Betrag von Artikel 1 ein", "Betrag Artikel 1")
sngartikelzwei = InputBox("Geben Sie den Betrag von Artikel 2 ein", "Betrag Artikel 2") sngartikeldrei = InputBox("Geben Sie den Betrag von Artikel 3 ein", "Betrag 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
|