Hallo, ich bin gerade am verzweifeln, habe von meinem Dozenten gestern folgende Aufgabe erhalten:

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