Zahlenformat?
07.10.2003 20:26:20
Nikolas
habe ein kleines Problem!
Ich trage über eine Userform Zahlenwerte in die Tabelle ein! Das Ergebnis kann auch z.B.: 2,67 betragen. Aber in die Tabelle wird der Wert 2 eingetragen! Wo ist die Kommastelle?
Zellenformat - Benutzerdefiniert 0,00 %
Ebenso komisch verhält es sich, wenn das Ergebnis kleiner '0' ist, dann wird nämlich keine Zahl übertragen :-(
Welchen Fehler mache ich?
so so sieht bei mir der Code aus. Hoffe, ich habe alles angegeben...
'###############################################################Code eingefügt mit Syntaxhighlighter 1.14
' TextBoxen berechnen
'###############################################################
Function berechnen()
Dim Ctr As Control
Dim Wert#
On Error Resume Next
For Each Ctr In frmnutzlos.Controls
If Left(Ctr.Name, 1) = "S" Then
Wert = Wert + Ctr.Value
End If
Next
Controls("txt_gesamt") = FormatNumber(Wert / 3, 2)
End Function
'###############################################################
' Ergebnis übertragen
'###############################################################
Private Sub cmd_ubertrag_Click()
ActiveSheet.Range(Me.txt_address) = Val(Me.txt_gesamt)
Unload Me
End Sub
Danke für die Hilfe
Nikolas