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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen