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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen