kann ich eine Zelle so einstellen das die letzte Zahl hochgestellt, wie zb beim Benzinpreis: also 1,37 und dann die 9 Hochgestellt?
Wie geht das?
Grüße
Lars
Sub hochstellen()
Dim c As Range, intStellen As Integer, strWert As String
Dim intStart As Integer, intLaenge As Integer
intStellen = 1
For Each c In Selection
c.NumberFormat = "@"
c.HorizontalAlignment = -4152
strWert = c.Value
c.Formula = strWert
intStart = Len(c) - intStellen + 1
c.Characters(intStart, intStellen).Font.Superscript = True
Next
End Sub