Hochstellen von Zahlen
03.02.2004 11:11:50
Conny
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