Eine Null bei Beträgen hinzufügen wenn nötig

[D@nger]

Hallo,

ich habe folgenden Code geschrieben (nicht auf die Ordentlichkeit achten):

Private Sub Command1_Click()
Text2.Text = ""
Text3.Text = ""

Dim s As Variant
s = Split(Text1.Text, ",")
On Error Resume Next
Text3.Text = s(1)

If InStr(Text1.Text, ",") > 0 Then
Text2.Text = Text1.Text + "0"
End If
If InStr(Text1.Text, ",") = 0 Then
Text2.Text = Text1.Text + ",00"
End If
If Len(Text3.Text) > 1 Then
Text2.Text = Text1.Text + ""
End If
End Sub

Den gesamten Code findet ihr im Anhang.

Der ist jetzt eigentlich ziemlich umfangreich.
Kennt ihr eine andere Methode um den gewünschen Effekt zu erzielen?
Mein Wunsch ist es die Beträge mit 2 Nachkommastellen ausgeben zu lassen, d.h. aus 5 wird 5,00 auf 5,7 wird 5,70 und 5,88 bleibt 5,88

Danke schon mal

 

[D@nger]

Hallo,

ich wollte nur sagen, dass ich es selbst geschafft habe.
Diesen Code habe ich dazu geschrieben (ohne Hilfe von irgendwelchen Seiten):

' Betrag umwandeln
Public Sub CheckBetrag( _
  oText As TextBox)

  With oText
  
  
   Dim s As Variant
s = Split(.Text, ",")
On Error Resume Next
splitter.Text = s(1)

If Len(splitter.Text) = 1 Then
.Text = .Text + "0"
End If
If InStr(.Text, ",") = 0 Then
.Text = .Text + ",00"
End If
If Len(splitter.Text) = 2 Then
.Text = .Text + ""
End If

  End With
End Sub

Private Sub Command1_Click()
CheckBetrag Text1
End Sub

Wenn ihr sowas mal braucht bedient euch ruhig.

 

[Nirraven]

Oder einfach

MsgBox Format(CDbl(Text1), "###.00")

 

[D@nger]

Hi,
Klasse, das wusste ich ja noch garnicht.
Und ich schreibe einen ellenlangen Code......

 

[Nirraven]

Ich meine, dein Code is interessant, gratz dazu...
Aber nun ja performancemäßig is die eine zeile sicher von vorteil.

 

[D@nger]

Hi,
ok, danke, aber jetzt habeich doch noch was gefunden.
Was ist wenn der Anwender eine 0 eingibt?
Dann kommt ",00" raus.
Um das zu vermeiden:

Text1.Text = Format(CDbl(Text1.Text), "###.00")
If Text1.Text = ",00" Then Text1.Text = "0,00"