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
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