AW: Tiefgestell per Mausklick?
Beate
Hallo Urs,
folgende Makros wirken sich auf die markierte(n) Zelle(n) aus. Dabei werden alle Zahlen tief-/hoch-oder normalgestellt, je nach Makro.
'*********************
' (c) 2004 by Manfred Rüß
' www.marusoft.de
' marusoft@t-online.de
'*********************
' Stellt in allen markierten Zellen die Zahlen
' Hoch, Tief, Normal
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