Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zahl per VBA um Nachkommastellen ergänzen?

Zahl per VBA um Nachkommastellen ergänzen?
06.12.2005 16:09:13
MartinS
Hallo zusammen,
hab eine Zahl die ich mir per Code errechnen lasse, jedoch werden mir immer die "leeren" Stellen nach dem Komme weggeschnipselt! Beispiel 69,2
Ich möchte diese Zahl in Word ausgeben jedoch als 69,20!
Wie kann ich die Zahl mit der fehlenden Null ergänzen?
so hab ichs versucht, klappt aber nicht:
Select Case Right(CStr(curSumme), 2)
Case ",*"
strNull = "00"
Case "*,"
strNull = "0"
End Select
Irgend eine Idee?
Gruß,
Martin

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahl per VBA um Nachkommastellen ergänzen?
06.12.2005 16:19:12
Thomas
normal geht das über den Format() Befehl
kenn den Syntax nicht auswendig, probier mal:
format(wert, "0.00")
lg
Thomas
AW: Zahl per VBA um Nachkommastellen ergänzen?
06.12.2005 16:29:59
MartinS
Hi Thomas,
vielen vielen Dank, hat funktioniert!
bsp.: strNull = Format(CStr(curSumme), "##,##0.00")
Schönen Nachmittag,
Martin
AW: Zahl per VBA um Nachkommastellen ergänzen?
06.12.2005 16:19:56
Reinhard
Hi Martin,

Sub tt()
z = 69.8
zString = CStr(Replace(z, ".", ","))
pos = InStr(zString, ",")
If pos = 0 Then
zString = zString & ",00" 'Ganzzahl
Else
zString = Left(zString & "00", pos + 2)
End If
'MsgBox zString
End Sub

Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen
Anzeige
ups, hatte Xl8.0 schon Instr , Replace ? o.w.T.
06.12.2005 16:21:05
Reinhard
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen
AW: ups, hatte Xl8.0 schon Instr , Replace ? o.w.T.
06.12.2005 16:31:28
Hajo_Zi
Hallo Reinhard,
Ja


AW: ups, hatte Xl8.0 schon Instr , Replace ? o.w.T
06.12.2005 16:32:14
MartinS
Hallo Reinhard,
hab bereits ne Lösung gefunden, aber vielen Dank für deine Hilfe.
Wünsche noch nen schönen Abend,
Martin

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige