Herbers Excel-Forum - das Archiv
Zahlenformat?
Informationen und Beispiele zu den hier genannten Dialog-Elementen:

|
Betrifft: Zahlenformat?
von: Nikolas
Geschrieben am: 07.10.2003 20:26:20
Hi,
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...
'###############################################################
' 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
Code eingefügt mit Syntaxhighlighter 1.14
Danke für die Hilfe
Nikolas
Betrifft: AW: Zahlenformat?
von: PeterW
Geschrieben am: 07.10.2003 20:30:00
Hallo Nikolas,
aus der VBA-Hilfe zu VAL:
Anmerkung Die Val-Funktion erkennt nur den Punkt (.) als gültiges Dezimalzeichen. Wenn Sie ein anderes Dezimalzeichen verwenden möchten (zum Beispiel bei internationalen Anwendungen), sollten Sie statt dessen die Funktion CDbl verwenden, um eine Zeichenfolge in eine Zahl umzuwandeln.
Gruß
Peter
Betrifft: AW: Zahlenformat?
von: Nikolas
Geschrieben am: 07.10.2003 20:50:24
Hi Peter,
jau stimmt - das war es! Danke dafür!
Nikolas