Zahlen und bestimmte Buchstaben hochstellen
30.03.2005 19:43:10
Franky
ich möchte in einer Zelle einen bestimmten Bereich hochstellen. Als Beispiel Ab+7 wobei b+7 hochgestellt sein soll. Ich habe im Forum ein Makro gefunden, mit dem man Zahlen hochstellen kann.
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
Mein Problem ist, dass ich den Buchstaben b sowie das + Zeichen ebenfalls mit hochgestellt haben möchte. Es wäre toll wenn mir jemand weiterhelfen könnte.
Für die Hilfe möchte ich mich schon einmal im Voraus bedanken.
Gruß Franky
Anzeige