Sub
Nullen_Entfernen()
Dim
Betrag
As
String
Dim
LenBetrag
As
Integer
Betrag =
"123,0500"
LenBetrag = Len(Betrag)
If
InStrRev(Betrag,
"0"
, -1) = LenBetrag
Then
Betrag = Mid(Betrag, 1, LenBetrag - 1)
LenBetrag = Len(Betrag)
If
InStrRev(Betrag,
"0"
, -1) = LenBetrag
Then
Betrag = Mid(Betrag, 1, LenBetrag - 1)
LenBetrag = Len(Betrag)
If
InStrRev(Betrag,
"0"
, -1) = LenBetrag
Then
Betrag = Mid(Betrag, 1, LenBetrag - 1)
LenBetrag = Len(Betrag)
If
InStrRev(Betrag,
"0"
, -1) = LenBetrag
Then
Betrag = Mid(Betrag, 1, LenBetrag - 1)
LenBetrag = Len(Betrag)
End
If
End
If
End
If
End
If
If
InStr(1, Betrag,
","
) = LenBetrag
Then
Betrag = Mid(Betrag, 1, LenBetrag - 1)
End
If
MsgBox Betrag
End
Sub