IsNumeric+Empty in if, then Anweisung?
21.05.2008 10:40:35
Jessica
ich habe 3 Textfelder die Bestandteile einer Formel sind. Diese Werten dürfen nur numerischer Natur sein. Beim Auslösen des CMD-Buttons soll geprüft werden, ob
a) alle Eingaben numerisch sind
b) überhaupt Werte vorhanden sind
hier mein Ansatz, aber gibt es dafür eine elegantere Lösung?
Private Sub cmd_AD_Click()
If IsNumeric(tb_ea1__tb_AD) _
And IsNumeric(tb_A1__tb_AD) _
And IsNumeric(tb_R1__tb_AD) _
And tb_ea1__tb_AD.Value = Empty _
Or tb_A1__tb_AD.Value = Empty _
Or tb_R1__tb_AD.Value = Empty Then
MsgBox ("Bitte geben Sie Werte ein usw.")
Else
If IsNumeric(tb_ea1__tb_AD) _
And IsNumeric(tb_A1__tb_AD) _
And IsNumeric(tb_R1__tb_AD) Then
A1_ADurch = tb_A1__tb_AD.Value
R1_ADurch = tb_R1__tb_AD.Value
amortisationsdauer = (A1_ADurch - R1_ADurch) / ea1_ADurch
'Text_Amortisationsdauer.Caption = amortisationsdauer
Text_Amortisationsdauer.Caption = amortisationsdauer
cmd_AD.Visible = False
FR_AmortisationsdauerOK.Visible = True
Else
MsgBox ("Bitte geben Sie Werte ein usw.")
End If
End If
End Sub
Ein weiteres Problem:
Wie löst man am Besten den Umgang mit nicht auflösbaren Rechnungen, d.h. Division durch 0.
Bsp. ea1_ADurch = 0, ist zwar ein Wert, kann aber nicht Ausdruck durch 0 teilen.
?
Für Rückmeldungen wäre ich dankbar.
LG