Kommaproblematik bei Eingabe in Userform
07.03.2006 15:57:23
Fritz
ich stehe vor folgendem problem: wenn ich einer userform eine dezimalzahl mit komma eingebe, werden die nachkommazahlen ignoriert.
versuche ich nun über die replace-funktion das komma in einen punkt zu ändern erscheint die fehlemeldung:
fehler beim kompilieren
anweisung ausserhalb eines type-blocks ungültig
was mache ich falsch?
anmerkung: TBxy ist der name der textbox
lg, fritz
Private Sub OK_Click()
replace("TBxy", ",", ".") As Double
If IsNumeric(TBxy)Then
Sheets("Summe").Range("O23") = Val(TBxy)
End If
Unload Me
End Sub