kann ich in Excel das Wort CO2 dauerhaft so einstellen, daß nach erfolgter Eingabe automatisch die 2 tiefgestellt wird!!!!
Vielen Dank
W.Mommers
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tmp As String, n As Integer
If Target.Column = 1 And Target.Count = 1 Then
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
tmp = Target
For n = 1 To Len(tmp)
If IsNumeric(Mid(tmp, n, 1)) Then _
Target.Characters(n, 1).Font.Subscript = True
Next
End If
ERRORHANDLER:
Application.EnableEvents = True
End Sub