Hochstellen von Zahlen

Forumthread: Hochstellen von Zahlen

03.02.2004 11:11:50

Conny

Hallo!
Ich habe folgendes Excel Problem: ich möchte nicht jedesmal wenn ich eine Zahl oder einen Buchstaben Hochstellen will die Zahl(en) oder Buchstabe(n) markieren und auf Format/Zelle/Schrift/Hochgestellt/ klicken müssen.
Jetzt habe ich versucht ein Marko aufzuzeichnen und habe folgenden Code erhalten. (Ich habe es mit 10-7 probiert, wobei ich das -7 hochstellen möchte)


Sub Hochstellen()
' Hochstellen Makro
' Makro am 03.02.2004 von Cornelia Leiner aufgezeichnet
ActiveCell.FormulaR1C1 = "10-7"
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=3, Length:=2).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = True
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("A2").Select
End Sub

Damit fang ich jetzt nun leider nicht sehr viel an, da meine VBA Kenntnisse nicht gerade weiterreichend sind.
Gibt es für mein Problem eine Lösung???
Vielen Dank schon mal jetzt!
Conny

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Hochstellen von Zahlen

03.02.2004 11:22:00

AndreasS
AW: Hochstellen von Zahlen

03.02.2004 11:29:18

Jörg Gradert

AW: Hochstellen von Zahlen

03.02.2004 11:22:00

AndreasS

Hallo,
mein vorschlag wäre ein Button...für die aktive Zelle.


Private Sub CommandButton1_Click()
call Hochstellen
End Sub

Sub Hochstellen()
With ActiveCell
With Selection.Font
.Strikethrough = False
.Superscript = True
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End With
End Sub

Gruß Andreas

AW: Hochstellen von Zahlen

03.02.2004 11:29:18

Jörg Gradert

Hallo Conny,
folgendes Makro stellt rechts 2 Zeichen eines Textes hoch.
Die Zelle muss vor der Eingabe auf Text formatiert sein.
Danach Zellen markieren, wo hochgestellt werden soll und Makro starten.
Makro in ein Standardmodul einfügen.


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

Gruss Jörg

Infobox / Tutorial

Zahlen und Buchstaben hochstellen in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Textformatierung: Stelle sicher, dass die Zelle, in der Du die Zahl oder den Buchstaben hochstellen möchtest, auf „Text“ formatiert ist. Dies kannst Du unter „Start“ > „Zahlenformat“ ändern.
Zelle markieren: Wähle die Zelle aus, die den Text oder die Zahl enthält, die Du hochstellen möchtest.
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Neues Modul einfügen: Klicke mit der rechten Maustaste auf „VBAProject (DeineArbeitsmappe)“ > „Einfügen“ > „Modul“.

Makro einfügen: Kopiere und füge folgenden VBA-Code in das Modul ein:

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

Makro ausführen: Schließe den VBA-Editor. Wähle die Zelle oder Zellen aus, die du hochstellen möchtest, und führe das Makro über ALT + F8 aus.
Zahlen hochstellen: Jetzt sollten die letzten beiden Zeichen in den ausgewählten Zellen hochgestellt sein.

Häufige Fehler und Lösungen

Fehler: Zellen sind nicht als Text formatiert
Lösung: Stelle sicher, dass die Zellen, in denen Du hochgestellte Zahlen oder Buchstaben verwenden möchtest, auf „Text“ formatiert sind.
Fehler: Makro funktioniert nicht
Lösung: Überprüfe, ob das Makro korrekt in ein Standardmodul eingefügt wurde und die richtige Zelle ausgewählt ist.
Fehler: Hochstellen funktioniert nicht für Formeln
Lösung: Hochgestellte Zahlen in Formeln können nicht direkt angewendet werden. Du musst die Werte zuerst als Text formatieren.

Alternative Methoden

Direktes Hochstellen über Menü: Markiere den gewünschten Text, gehe zu „Start“ > „Schriftart“ und aktiviere das Kontrollkästchen „Hochgestellt“.
Tastenkombination: Du kannst auch STRG + 1 drücken, um die Zelle zu formatieren und „Hochgestellt“ auszuwählen.
Formeln nutzen: In manchen Fällen kannst Du Kombinationen aus TEXT und CHAR verwenden, um hochgestellte Zeichen in Formeln darzustellen.

Praktische Beispiele

Beispiel für hochgestellte 1: Um die Zahl 1 hochzustellen, kannst Du folgendes Makro verwenden:

Sub HochgestellteEins()
   ActiveCell.Characters(Start:=1, Length:=1).Font.Superscript = True
End Sub

Beispiel für Buchstaben hochstellen: Wenn Du den Buchstaben „a“ in der Zelle A1 hochstellen möchtest:
```
Sub BuchstabenHochstellen()
   Range("A1").Characters(Start:=1, Length:=1).Font.Superscript = True
End Sub
```

Tipps für Profis

Makros automatisieren: Du kannst das Hochstellen von Zahlen und Buchstaben automatisieren, indem Du Schaltflächen in Deinem Excel-Dokument erstellst, die das Makro ausführen.
Fehlerbehebung im Code: Achte darauf, dass die ActiveCell immer die richtige Zelle referenziert. Nutze Selection für mehrere Zellen.
Anpassungen im VBA: Passe den VBA-Code an, um spezifische Anforderungen zu erfüllen, wie z.B. das Hochstellen von mehr als zwei Zeichen.

FAQ: Häufige Fragen

1. Wie kann ich eine Zahl in Excel hochstellen?
Du kannst die Zahl hochstellen, indem Du die Zelle markierst, das Menü „Schriftart“ öffnest und das Kontrollkästchen „Hochgestellt“ aktivierst.

2. Gibt es eine Tastenkombination für das Hochstellen in Excel?
Ja, Du kannst STRG + 1 drücken, um das Formatierungsfenster zu öffnen, und dann „Hochgestellt“ auswählen.

Beliebteste Forumthreads (12 Monate)