Hallo, ich bin gerade am verzweifeln, habe von meinem Dozenten gestern folgende Aufgabe erhalten:
Erstellen Sie in einem Formular (VBA) ein komfortables Programm, das die Getränke und Speisen - einem Tisch zugewiesen - auflistet und zusammenrechnet. |
Ich habe jetzt eine Userform erstellt, die ich mit OptionButtons für jeden einzelnen Tisch und für die Speisen, Desserts und Getränke befüllt habe. Soweit so gut, nun kommt aber das programieren. Das ich die Auswahl zusammenstelle würde wohl noch gehen, aber das damit dann auch ein zusammenrechnen der Einzelpreise funktioniert, da hört es dann bei mir auch auf. Kann mir da vielleicht jemand Tipps geben.
Ich stelle meinen Code hier mal ein:
Private Sub cmbRechnung_Click()
'Prüfung des Tisches
If Tisch1.Value = True Then
vTisch = " Tisch1" 'v Variable als Satzbaustein
ElseIf Tisch2.Value = True Then
vTisch = " Tisch2"
ElseIf Tisch3.Value = True Then
vTisch = " Tisch3"
ElseIf Tisch4.Value = True Then
vTisch = " Tisch4"
ElseIf Tisch5.Value = True Then
vTisch = " Tisch5"
Else: MsgBox ("Bitte wählen Sie einen Tisch aus!") 'Messagebox zur Erinnerung
End If
'Eingabe der Speisen
If Pizza.Value = True Then
vSpeisen = " Pizza 8€," 'v Variable als Satzbaustein
ElseIf Pasta.Value = True Then
vSpeisen = " Pasta 6€,"
ElseIf Schnitzel.Value = True Then
vSpeisen = " Schnitzel 9€,"
ElseIf Burger.Value = True Then
vSpeisen = " Burger 4€,"
ElseIf Bratwurst.Value = True Then
vSpeisen = " Bratwurst 2,50€,"
Else: MsgBox ("Bitte wählen Sie die Speise aus!") 'Messagebox zur Erinnerung
End If
'Eingabe des Desserts
If Eis.Value = True Then
vDessert = " Eis 2,50€,"
ElseIf Mousse = True Then
vDessert = " mousse au chocolat 3,00€,"
ElseIf Erdbeer = True Then
vDessert = " Erdbeercreme 2,00€,"
ElseIf Kein = True Then
vDessert = " kein Dessert,"
Else: MsgBox ("Bitte wählen Sie ein Dessert aus!")
End If
'Eingabe des Getränks
If Cola.Value = True Then
vGetränke = " eine Cola 3,00€"
ElseIf Wasser.Value = True Then
vGetränke = " ein Wasser 2,50€"
ElseIf Bier.Value = True Then
vGetränke = " ein Bier 3,50€"
ElseIf Wein.Value = True Then
vGetränke = " ein Wein 4,00€"
Else: MsgBox ("Bitte wählen Sie ein Getränk aus!")
End If
'Zusammensetzung des Satzes
lblausgabe = "Sie haben am " & vTisch & " gesessen, und hatten folgende Bestellung" & vSpeisen & vDessert & vGetränke & "."
End Sub
Private Sub CommandButton2_Click()
lblausgabe = " "
End Sub
Private Sub CommandButton3_Click()
End
End Sub
Private Sub lblausgabe_Click()
End Sub
Private Sub UserForm_Click()
End Sub
Ich hoffe es kann mir dabei jemand helfen, das ganze noch zu vervollständigen, danke
|