Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "CO2 richtig schreiben"
Fehlermeldung abfangen und in sequentielle Datei schreiben Arbeitsmappe anlegen und Workbook_Open-Prozedur schreiben
Text aus UserForm in eine Zelle schreiben Zellinhalte in Verbindung mit Variablen in Textdatei schreiben
Bei Eingabe von "j" "Ja" und von "n" "Nein" schreiben Text in NotePad schreiben, speichern, in Excel aufrufen
Ersten mit einem neuen Buchstaben beginnenden Namen fett schreiben Emailrundschreiben mit vorgegebenem Text über Outlook
Zahlen eines Bereiches jeweils 4 mal in eine Spalte schreiben. Registry-Einträge schreiben, lesen, löschen