Hallo Barney,
nicht unbedingt schön aber vielleicht so...
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
Gruß Detlev
|