Herbers Excel-Forum - das Archiv

Zahlenformat?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox UserForm
Bild

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
Bild

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
Bild

Betrifft: AW: Zahlenformat?
von: Nikolas
Geschrieben am: 07.10.2003 20:50:24
Hi Peter,

jau stimmt - das war es! Danke dafür!

Nikolas
 Bild
Excel-Beispiele zum Thema " Zahlenformat?"
Zahlenformatierung mit Punkt nach der 1. Ziffer Werte nur mit Zahlenformaten übertragen
Tabelle gem. hinterlegten Zahlenformaten formatieren