Herbers Excel-Forum - das Archiv
nochmal val - funktion
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ CommandButton
⇒ TextBox
- nochmal val - funktion von naSh! vom 10.10.2003 16:08:41
- AW: nochmal val - funktion - von ChrisL am 10.10.2003 16:14:30
- AW: nochmal val - funktion - von Michael Scheffler am 10.10.2003 16:16:13
- AW: nochmal val - funktion - von RAnton am 10.10.2003 16:16:55
- AW: nochmal val - funktion - von naSh! am 10.10.2003 16:37:57
- AW: nochmal val - funktion - von naSh! am 10.10.2003 16:37:57
- AW: nochmal val - funktion - von ChrisL am 10.10.2003 16:14:30
 |
Betrifft: nochmal val - funktion
von: naSh!
Geschrieben am: 10.10.2003 16:08:41
Hallo liebe Programmierfreunde,
ich stehe vor einem kleinem Problem.
Ich möchte, das eine Variable vom Typ Double nach einer Val-Prüfung auch ein Double bleibt.
Eigentlich "sollte" es ja so gehen:
Dim dblEingabe as Double
dblEingabe = CDbl(Val(txtEingabe.Text))
Aber dann ist aus dblEingabe ja ein Integer geworden !?
Das Problem ist, das auf jeden fall eine Prüfung erfolgen soll, ob etwas anderes als eine Zahl eigegeben wurde.
Ich würde mich riesig über eure Hilfe freuen !
lg, naSh!
 |
Betrifft: AW: nochmal val - funktion
von: ChrisL
Geschrieben am: 10.10.2003 16:14:30
Hi
Private Sub CommandButton1_Click()
Dim dblEingabe As Double
If IsNumeric(TextBox1) = False Then
MsgBox "Fehler"
Exit Sub
End If
dblEingabe = TextBox1
MsgBox dblEingabe
End Sub
Gruss
Chris
|
Betrifft: AW: nochmal val - funktion
von: Michael Scheffler
Geschrieben am: 10.10.2003 16:16:13
Das macht man anders:
If Not IsNumeric(txtEingabe.Text) Then
MsgBox "Bitte Zahl eingeben!", vbCritical
EndIf
Gruß
Micha
|
Betrifft: AW: nochmal val - funktion
von: RAnton
Geschrieben am: 10.10.2003 16:16:55
Hallo nahs
kannst dus nicht so machen?
IsNumeric-Funktion (Beispiel)
In diesem Beispiel wird die IsNumeric-Funktion verwendet, um festzustellen, ob eine Variable eine Zahl darstellt.
Dim Var1, Test1
Var1 = "53" ' Wert zuweisen.
Test1 = IsNumeric(Var1) ' Liefert True.
Var1 = "459.95" ' Wert zuweisen.
Test1 = IsNumeric(Var1) ' Liefert True.
Var1 = "45 Hilfe" ' Wert zuweisen.
Test1 = IsNumeric(Var1) ' Liefert False.
Gruß
RAnton
|
Betrifft: AW: nochmal val - funktion
von: naSh!
Geschrieben am: 10.10.2003 16:37:57
Oh mann, ihr seid Gold wert !
Werds nachher gleich mal ausprobieren .. vielen Dank !
Gruß, naSh!
| |