Thema Datum  Von Nutzer Rating
Antwort
Rot OptionButtons mit Preisen verbinden
 05.06.2020 11:48:34 Holger
NotSolved
05.06.2020 12:24:13 amicro2000
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
05.06.2020 11:48:34		 Views:
1169		 Rating:
     
Antwort:
  Ja
Thema:
OptionButtons mit Preisen verbinden

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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
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
 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot OptionButtons mit Preisen verbinden
 05.06.2020 11:48:34 Holger
NotSolved
05.06.2020 12:24:13 amicro2000
NotSolved