Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem mit variablen

Problem mit variablen
15.07.2008 11:31:41
ray
Hallo,
ich habe mir einen kleinen Taschenrechner auf einer UserForm gebastelt. Die Zahlen und Rechzeichen sind hinter commandButtons.

Private Sub CommandButton1_Click()
tbSumme.Value = tbSumme & 1
End Sub


Public wert As Variant
Public wertWas As Variant
Public wertAlles As Variant


Private Sub cbDurch_Click()
wert = tbSumme
tbSumme = ""
wertWas = "/"
End Sub



Private Sub cbMal_Click()
wert = tbSumme
tbSumme = ""
wertWas = "*"
End Sub



Private Sub cbGleich_Click()
wertAlles = Evaluate(tbSumme.Value & wertWas & wert)
tbSumme = wertAlles
End Sub


+ - * funktioniert einwandfrei.
Nur / geht nicht.
4 / 2 ergibt 0,5 ; 6/3 ergibt 0,333333333333E
woran liegt das wohl?
Viele Grüße aus Hamburg
Ray

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem mit variablen
15.07.2008 13:14:43
Yal
Hallo Ray,
keine Ahnung. Die Online Hilfe spricht für die Funktion "Evaluate" von Excel-Namenskonvention ohne sehr ausführlich zu sein.
Wie Wär's mit einem Select-case:

Private Sub cbGleich_Click()
Select case wertWas
Case "/"
wertAlles = tbSumme.Value / wert
Case Else
wertAlles = Evaluate(tbSumme.Value & wertWas & wert)
End Select
tbSumme = wertAlles
End Sub


Du kannst natürlich mit jeden Sonderfall erweitern.
Viel Erfolg
Yal

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige