Problem mit Zahlenformat
21.11.2007 08:17:53
ray
nachfolgender Code funzt nicht richtig. Wenn ich Beträge eingebe, die größer als 999,99 sind dann greift die Routine Ganzzahl ein.
Private Function IstGanzzahl(tbEur As String) As Boolean
If IsNumeric(tbEur) And _
InStr(tbEur, ".") = 0 Then
IstGanzzahl = True
Else
IstGanzzahl = False
End If
End Function
sub()
frmUez.tbEur = Format(tbEur, "##,##0.00")
dat3 = Date + 3
'############ CHK ob Felder richtig ausgefüllt sind START ###############
If IstGanzzahl(frmUez.tbEur) = False Then 'function oben gehört dazu
MsgBox "Betrag im falschen Format oder nicht als Zahl eingeben.", vbExclamation
Exit Sub
End If
'############ CHK ob Felder richtig ausgefüllt sind ENDE ###############
End Sub
Was mahc ich falsch?
Viele vergrippte Grüße aus HH
ray