ich habe eine Kommazahl mit davor stehen also z.b 0,50!
Wie kann ich hier die stellen hinter dem komma hochstellen?
Gruß
Sub hochstellen()
Dim c As Range
Dim intStellen As Integer
Dim strWert As String
Dim intStart As Integer
Dim intLaenge As Integer
For Each c In Selection
intStellen = Len(c.Value) - Len(Int(c.Value)) - 1
c.NumberFormat = "@"
c.HorizontalAlignment = -4152
strWert = c.Value
c.Formula = strWert
intStart = Len(c) - intStellen + 1
c.Characters(intStart, intStellen).Font.Superscript = True
Next c
End Sub
Markiere die Zelle(n) und rufe es auf.
Gruß Peter