Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

die letzen Zwei Zeichen in einer Zelle sollen hochgestellt weren?





Frage

Hallo, Ich möchte z.B. zwei Zahlen und zwei hochgestellte Zeichen in einer Zelle formatieren ohne immer auf Zellen formatieren zu gehen!! Vielen Dank im voraus!

Antwort 1 von sesselpup

Tach,
is ganz einfach. Du markierst den Bereich den du hochstellen willst, in der Bearbeitungleiste. Dann gehst du auf "Zellen formatieren" und klickst hier den Botton "hoch stellen" an. Leider kannst du immer nur zusammenhängende Buchstaben, Wörter oder Zahlen mit einmal hochstellen. Ich würde dir gern einen Beispielsatz hier reinstellen, doch das geht nicht. In der Bearbeitungsleiste wird die Hochstellung auch nicht angezeigt. Du siehst es halt nur in dem Excelblatt.

Falls du aber Formeln erstellen willst, kann ja sein, du hast ja nicht geschrieben was du genau machen willst, dann nimm den Formelersteller. : "Einfügen - Objekt " und aus der Liste wählst du "Microsoft Equation 3.0" hier bei kann ich nur sagen: Viel spaß beim Basteln, aber dann hat man was richtiges. Nachteil; gerechnet werden kann damit nicht. Es ist nur ne Darstellung. Aber eine gute!

Antwort 2 von CaroS

Hallo,

habe gerade ein ärgerliches Posting gelesen und beantwortet und lese dann das hier:
Zitat:
Ich möchte ... formatieren ohne immer auf Zellen formatieren zu gehen!!

Kein Problem, warum nicht mal danach fragen! Antwort:
Zitat:
is ganz einfach. ... Dann gehst du auf "Zellen formatieren" und ...

Das trägt nicht wesentlich zu einer Stimmungsverbesserung bei.
(Aber das ist wahrscheinlich auch nicht der Sinn des Forums.)

Gruß an alle, auch an die, die´s mit dem Lesen nicht so haben!
CaroS

Antwort 3 von fürLau

@CaroS
Kann Deinen Frust nachvollziehen.
Hab´ denVersuch den Post gestern zu beantorten verworfen, weil .Superscript nur in einer Textvariablen korreckt funktioniert.
...glaub´ bins auch langsam leid fürLau zu helfen!!!

Gruß
@Mic
Mäuse fängt der Speck

Antwort 4 von fürLau

...will ´mal nicht so sein:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Debug.Print Target.Address
If Left(Target.Address(False, False), 1) <> "F" Then Exit Sub
Dim inhalt$
On Error Resume Next
inhalt = Target.Value
If Len(inhalt) < 3 Then Exit Sub
With ActiveCell.Characters(Start:=1, Length:=Len(inhalt)).Font
     .Superscript = False
   End With
With ActiveCell.Characters(Start:=Len(inhalt) - 1, Length:=2).Font
     .Superscript = True
   End With
End Sub


Der Code wirkt nur in der unterstrichenen Spalte