Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Formatierung hochgestellt?





Frage

Hallo, ich möchte in manchen Zellen Zahlen hochgestellt haben, zB. 10,60². Hoch 2 und 3 läuft, aber hoch 5? Es soll aber nicht immer jede Zelle einzeln formatiert werden. Vielleicht hatte schon jemand das gleiche Problem. Gruss Volker

Antwort 1 von cmkatz

schreibe alles ganz normal, also z.B. 35,

dann markierst du die 5, gehst unter Format auf "Zelle..." und stellst es auf "hochgestellt" fertig, so kannst du alles, sogar Buchstaben und SOnderzeichen hochstellen.

Gruß
cmkatz

Antwort 2 von Volker1

Soweit war ich auch schon, ich möchte aber nicht immer jede einzelne Zelle formatieren müssen.

Jede 3. Stelle nach dem Komma soll oben stehen.

Bin dankbar für jede Hilfe.

Gruss
Volker

Antwort 3 von nighty

hi volker :)

hier ein makro ,was von einer bestehenden marierung ausgeht und dessen zellen untersucht ,wenn ein komma "," gefunden wird,wird das letzte zeichen hochgestellt.

gruss nighty

Sub makro01()
Dim b$(1)
adress$ = ActiveWindow.RangeSelection.Address
For zeichenzaehler% = 1 To Len(ActiveWindow.RangeSelection.Address)
If Mid$(adress$, zeichenzaehler%, 1) = ":" Then
w = w + 1
zeichenzaehler% = zeichenzaehler% + 1
End If
If Mid$(adress$, zeichenzaehler%, 1) <> "$" Then
b$(w) = b$(w) + Mid$(adress$, zeichenzaehler%, 1)
End If
Next zeichenzaehler%
For t% = Val(Mid$(b$(0), 2, Len(b$(1)))) To Val(Mid$(b$(1), 2, Len(b$(1))))
For t1% = Asc(Mid$(b$(0), 1, 1)) To Asc(Mid$(b$(1), 1, 1))
For t2% = 1 To Len(Range(Chr$(t1%) & t%))
If Mid$(Range(Chr$(t1%) & t%), t2%, 1) = "," Then
Range(Chr$(t1%) & t%).Select
Range(Chr$(t1%) & t%) = Str$(Range(Chr$(t1%) & t%))
With ActiveCell.Characters(Start:=Len(Range(Chr$(t1%) & t%)), Length:=1).Font
If .Superscript = False Then .Superscript = True
End With
End If
Next t2%
Next t1%
Next t%
End Sub

Antwort 4 von coros

Nabend Volker,

ich weiß zwar nicht, ob Dein Problem bereits gelöst ist, aber ich schreibe hier auch noch einen Lösungsvorschlag hin. Folgendes Makro in ein Standard Modul kopiert und dann über eine Schaltfläche aufrufen.


Sub Hochstellen()
    Dim Zelle As Range
    For Each Zelle In Selection
    Zelle.Characters(Start:=Len(Zelle), Length:=1).Font.Superscript = True
    Next Zelle
End Sub



Bei diesem Makro wird immer die letzte Stelle einer Zahl hochgestellt. Da Deine Informationen ja sehr spärlich sind, bin ich mal davon ausgegangen, dass es sich bei der dritten Stelle hinter dem Komma um die letzte Stelle Deiner Zahlen handelt. Du musst allerdings Deine Zahlen, bei denen die letzte Stelle hochgestellt werden soll, als Text formatieren, sonst funktioniert das Makro nicht.

Wenn Du fragen hast, schreibe das dann hier in den Beitrag.

MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.

Antwort 5 von pippod

Hallo,

ich habe eine ähnliche Frage.
Es handelt sich dabei um eine Tabelle mit Maßen.
Die Zellen sollen so Formatiert sein, dass sie:

immer 2 Nachkommastellen haben,
außer es gibt 3
dann soll diese Hochgestellt sein
aber Inhalt der Zelle zu weiteren Berechnungen genutzt werden.


Beispiel:

4,00
0,10
4,25
4,30³

Mit der Zellenformatierung:

0,00#

bekomm' ich einen Teil hin, dass sofern es eine 3. Nachkommastelle oder mehr gibt, dann auf die 3. gerundet und diese dargestellt wird,

aber dann noch hochgeststellt wird und zusätzlich der Inhalt weiter zu berechnen ist fehlt mir noch.

Vielen Dank!

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: