ich möchte die Zahlen in einer Zelle so formatieren, dass die Schrift ab der 3. Stelle kleiner ist.
Ich dachte daran die Schriftgröße auf 6 zu stellen, meinetwegen auch gerne tief- oder hochgestellt.
Hat jmd ne Idee?
MfG
Christian
Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" And Target.Cells.Count = 1 Then
On Error GoTo errHdl
Application.EnableEvents = False
Target = Round(Target, 3)
Target = "'" & Target
With Target.Characters(Start:=Len(Target), Length:=1).Font
.Superscript = True
End With
With Target.Characters(Start:=1, Length:=Len(Target) - 1).Font
.Superscript = False
End With
End If
errHdl:
Application.EnableEvents = True
End Sub
Gruß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