[VBA] Formatierung: Keine Nachkommastellen

[JonasRe]

Hallo,

mein Problem ist, dass jede Zahl mit ###,00 angezeigt wird, sprich die Nachkommastellen werden durch 2 Nullen ersetzt. Ich habe extra schon alle Variablen als Long deklariert. Vielleicht hat jemand von euch eine Idee...

Sub Urlaubsgeld()
Dim Zeile As Long
Dim ZeileMax As Long
Dim Urlaubstage As Long
Dim Urlaubsgeld As Long
With tbl_Gehaltsdaten
ZeileMax = .UsedRange.Rows.Count
For Zeile = 5 To ZeileMax
If .Cells(Zeile, 5) > 25 Then
    Urlaubstage = 31
Else
    Urlaubstage = 30
End If
Urlaubsgeld = Urlaubstage * 50 / 100 / 21.75 * tbl_Gehaltsdaten.Cells(Zeile, 49).Value
tbl_Gehaltsdaten.Cells(Zeile, 51).Value = Urlaubsgeld
Next Zeile
End With
End Sub

[LCohen]

Wer Long sät, wird auch Long-Werte ernten. Was bitte also ist Deine Frage?

Hinweis: Nachkomma bekommst Du mit Double, Single, Variant oder Currency (falls es letzteres gibt)

[Käpt'n Blaubär]

Hallo,

mein Problem ist, dass jede Zahl mit ###,00 angezeigt wird, sprich die Nachkommastellen werden durch 2 Nullen ersetzt. Ich habe extra schon alle Variablen als Long deklariert. Vielleicht hat jemand von euch eine Idee...

das ist der falsche Ansatzpunkt für Dein Problem.

Schau mal bei --- Format --- Benutzerdefiniert --- da läßt sich das bei --- Zahl --- einstellen.
Und wenn Du das mit dem Makrorecorder aufzeichnest, solltest Du Dein Problem gelöst haben.

[JonasRe]

Danke ihr beiden!

Das Long habe ich übersehen...