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ß