Tiefgestellt in Legende
Achim
Sub ZahlHoch()
Dim r As Range
Dim i As Integer
For Each r In Selection.Cells
If r.Value <> Empty Then
For i = 1 To Len(r.Value)
If IsNumeric(Mid(r.Value, i, 1)) Then
r.Characters(i, 1).Font.Superscript = True
Else
r.Characters(i, 1).Font.Superscript = False
End If
Next
End If
Next
End Sub
Sub ZahlTief()
Dim r As Range
Dim i As Integer
For Each r In Selection.Cells
If r.Value <> Empty Then
For i = 1 To Len(r.Value)
If IsNumeric(Mid(r.Value, i, 1)) Then
r.Characters(i, 1).Font.Subscript = True
Else
r.Characters(i, 1).Font.Subscript = False
End If
Next
End If
Next
End Sub
Sub ZahlNormal()
Dim r As Range
Dim i As Integer
For Each r In Selection.Cells
If r.Value <> Empty Then
For i = 1 To Len(r.Value)
If IsNumeric(Mid(r.Value, i, 1)) Then
r.Characters(i, 1).Font.Superscript = False
r.Characters(i, 1).Font.Subscript = False
End If
Next
End If
Next
End Sub