AW: Hochstellen - Tiefstellen
10.04.2004 13:43:23
Beate Schmitz
Hallo Julee,
nachstehend 3 Makros, mit denen du wahlweise Zahlen in markierten Zellen hoch- oder tief- oder normalstellen kannst. Buchstaben bleiben unverändert. Eignen sich also besonders gut für chem. Formeln.
*********************
' (c) 2004 by Manfred Rüß
' www.marusoft.de
' marusoft@t-online.de
'*********************
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
Gruß,
Beate