Moin,
folgendes kommt in ein allgemeines Modul:
Option Explicit
Sub Tieferstellen()
Dim c As Excel.Range
Dim i As Integer
For Each c In Selection
For i = 1 To c.Characters.Count
c.Characters(i, 1).Font.Subscript = VBA.IsNumeric(c.Characters(i, 1).Text)
Next
Next
End Sub
Dann markierst Du den Bereich:
... und lässt das Makro ablaufen.
|