Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Taschenrechner (Userform) mit Listbox
 22.02.2011 19:16:18 Psycoshooter
Solved
23.02.2011 00:47:08 Severus
NotSolved
23.02.2011 10:49:01 Gast47829
NotSolved
30.08.2012 13:04:37 Gast69333
NotSolved

Ansicht des Beitrags:
Von:
Psycoshooter		 Datum:
22.02.2011 19:16:18		 Views:
2776		 Rating:
     
Antwort:
 Nein
Thema:
VBA Taschenrechner (Userform) mit Listbox
?
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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
Dim Zahl1 As String
Dim Rechenart As String
 
Private Sub cmd0_Click()
        txtErgebnis = txtErgebnis + "0"
    'Display = Display + 0
     
End Sub
 
Private Sub cmd1_Click()
        txtErgebnis = txtErgebnis + "1"
    'Display = Display + 1
     
End Sub
 
Private Sub cmd2_Click()
        txtErgebnis = txtErgebnis + "2"
    'Display = Display + 2
     
End Sub
 
Private Sub cmd3_Click()
        txtErgebnis = txtErgebnis + "3"
    'Display = Display + 3
     
End Sub
 
Private Sub cmd4_Click()
        txtErgebnis = txtErgebnis + "4"
    'Display = Display + 4
     
End Sub
 
Private Sub cmd5_Click()
        txtErgebnis = txtErgebnis + "5"
    'Display = Display + 5
     
End Sub
 
Private Sub cmd6_Click()
        txtErgebnis = txtErgebnis + "6"
    'Display = Display + 6
     
End Sub
 
Private Sub cmd7_Click()
        txtErgebnis = txtErgebnis + "7"
    'Display = Display + 7
     
End Sub
 
Private Sub cmd8_Click()
        txtErgebnis = txtErgebnis + "8"
    'Display = Display + 8
     
End Sub
Private Sub cmd9_Click()
        txtErgebnis = txtErgebnis + "9"
    'Display = Display + 9
     
End Sub
 
Private Sub cmdKomma_Click()
        txtErgebnis = txtErgebnis + "."
    'Display = Display + .
     
End Sub
 
                'Nun kommen die Rechenarten
Private Sub cmdPlus_click()
        Zahl1 = txtErgebnis
    'die Variable soll genau den Wert des Displays erhalten
        Rechenart = "addieren"
    'Variable "Rechenart" soll den Wert "addieren" erhalten
        txtErgebnis = ""
    'Display leeren
End Sub
 
Private Sub cmdMinus_click()
        Zahl1 = txtErgebnis
    'die Variable soll genau den Wert des Displays erhalten
        Rechenart = "subtrahieren"
    'Variable "Rechenart" soll den Wert "subtrahieren" erhalten
        txtErgebnis = ""
    'Display leeren
End Sub
 
Private Sub cmdGeteilt_click()
        Zahl1 = txtErgebnis
    'die Variable soll genau den Wert des Displays erhalten
        Rechenart = "dividieren"
    'Variable "Rechenart" soll den Wert "dividieren" erhalten
        txtErgebnis = ""
    'Display leeren
End Sub
 
Private Sub cmdMal_click()
        Zahl1 = txtErgebnis
    'die Variable soll genau den Wert des Displays erhalten
        Rechenart = "multiplizieren"
    'Variable "Rechenart" soll den Wert "multiplizieren" erhalten
        txtErgebnis = ""
    'Display leeren
End Sub
 
 
Private Sub cmdHoch_click()
        Zahl1 = txtErgebnis
    'die Variable soll genau den Wert des Displays erhalten
        Rechenart = "potenzieren"
    'Variable "Rechenart" soll den Wert "potenzieren" erhalten
        txtErgebnis = ""
    'Display leeren
End Sub
    'Hiermit wird alles gelöscht bis auf die Listbox
Private Sub cmdClear_click()
        txtErgebnis = ""
        Zahl1 = ""
    'Variable und Display löschen
     
End Sub
    'Hier wird die Listbox gelöscht
Private Sub cmdclearlist_Click()
        ListBox1.Clear
    'Listbox löschen
End Sub
 
    'Hier kommt die eigentliche Rechnung
Private Sub cmdGleich_click()
 
    'Inhalt von txtErgebnis zwischenspeichern
formel = txtErgebnis
 
    If Rechenart = "addieren" Then
        txtErgebnis = CDbl(Zahl1) + CDbl(txtErgebnis)
         
    'mit cdbl() wird der jeweilige Inhalt in Zahlen umgewandelt
    ElseIf Rechenart = "subtrahieren" Then
        txtErgebnis = CDbl(Zahl1) - CDbl(txtErgebnis)
         
    ElseIf Rechenart = "multiplizieren" Then
        txtErgebnis = CDbl(Zahl1) * CDbl(txtErgebnis)
 
    ElseIf Rechenart = "dividieren" Then
        txtErgebnis = CDbl(Zahl1) / CDbl(txtErgebnis)
        
    ElseIf Rechenart = "potenzieren" Then
        txtErgebnis = CDbl(Zahl1) ^ CDbl(txtErgebnis)
         
    End If
     
    'Formel und Ergebnis in Liste eintragen
ListBox1.AddItem formel & " = " & txtErgebnis
 
End Sub
 
 
Das ist es Momentan: in die Listbox wird momentan folgendes eingetragen:
 
bei der Rechnung 1 + 1 = 2 trägt er nur 1 =  2 in die Listbox ein
 
Wie kann ich das beheben dass er die ganze rechnung in die Listbox einträgt ?

 

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 VBA Taschenrechner (Userform) mit Listbox
 22.02.2011 19:16:18 Psycoshooter
Solved
23.02.2011 00:47:08 Severus
NotSolved
23.02.2011 10:49:01 Gast47829
NotSolved
30.08.2012 13:04:37 Gast69333
NotSolved