Letztes Zeichen in aktiver Zelle hochstellen etc.
10.01.2024 11:03:53
Dieter(Drummer)
ich suche eine VBA Lösung, mit der das letzte Zeichen, egal wieviel Zeichen in Zelle sind, in aktiver Zelle hochgestellt und geändert wird.
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Mein jetziger Code funktioniert nur, wenn in aktiver Zelle 2 Zeichen (Text/Zahl) sind:
Code:
Sub Letztes_Zeichen_Hochstellung()
With ActiveCell.Characters(Start:=2, Length:=1).Font
'rechte Zahl 14 Pkt, hochgestellt, fett und rot
.Size = 14
.FontStyle = "Fett"
.Superscript = True
.Color = -16776961
End With
End Sub