CO2 richtig schreiben

Bild

Betrifft: CO2 richtig schreiben
von: Winfried Mommers
Geschrieben am: 18.02.2005 13:29:36
Hallo Freaks
kann ich in Excel das Wort CO2 dauerhaft so einstellen, daß nach erfolgter Eingabe automatisch die 2 tiefgestellt wird!!!!
Vielen Dank
W.Mommers

Bild

Betrifft: AW: CO2 richtig schreiben
von: Josef Ehrensberger
Geschrieben am: 18.02.2005 13:37:26
Hallo Winfried!
Mit einem kleinen Makro geht das!
Kopiere den Code in das Modul der Tabelle, er gilt für Spalte "A".
Es werden alle Numerischen Zeichen tiefgestellt.

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


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: CO2 richtig schreiben
von: Winfried Mommers
Geschrieben am: 21.02.2005 08:19:46
Hallo Sepp
hat soweit super funktioniert !!!
Ich habe diese "Einstellung" aber nur in dieser Mappe bzw. in diesem
Tabellenblatt ?? Für Excel generell läßt sich das nicht einstellen ?!?!?
Vielen Dank
Winfried
 Bild

Beiträge aus den Excel-Beispielen zum Thema "CO2 richtig schreiben"