Supportnet / Forum / Tabellenkalkulation

hallo wer weiß rat, ich habe es gesehen, anderswo, dass es geht: eine schaltfläche , die wenn ich drücke , die markierte schrift in der tabelle, dann hochgestellt ist ! aber wie funktioniert dies, denn unter anpassen etc. ist dieser befehl unter excel 97 nicht zu finden. danke im voraus Al

Hi Al (Bundy?), ;-)

Zeichen markieren und dann unter Format/Zellen/Schrift den Haken bei Hochgestellt setzen.

mfg,
Axel

danke
axel
aber ich wollte in der symbolleiste ein icon zum drücken, dass ich die markierte Schrift damit hochstellen kann !

Tja, da muss ich leider passen. So ein Icon ist mir nicht bekannt. Aber du kannst ja mal mit rechts auf eine Symbolleiste klicken, "Anpassen" auswählen und unter "Befehle/Format" suchen, ob man diesen Button einfügen kann.

mfg,
Axel

Du kannst es auch mit Makro/Makro aufzeichnen versuchen.
Du gibst dem einen Namen, startest die Aufzeichnung und klickst dich dann durch das Menü zum Häkchen Hochgestellt bis du auf OK geklickt hast.
Dann beendest du die Makroaufzeichnung.
Dann wählst du Symbolleiste anpassen und suchst unter Befehle Makros und da dein gerade aufgezeichnetes. Das hälst du mit der Maustaste fest und ziehst es in einen Bereich der Symbolleiste, wo du es haben willst.
Wenn du dann auf dieses mit der rechten Maustaste klickst, findest du mehrere Einstellmöglichkeiten für das Symbol... du kannst es sogar selbst gestalten ...

Habe eben dieses Makro aufgenommen:

Sub Hochstellen()
'
' Hochstellen Makro
' Makro am 26.11.2003 von MasterOfHardness aufgezeichnet
'

'
    With Selection.Font
        .Name = "Times New Roman"
        .FontStyle = "Standard"
        .Size = 12
        .Strikethrough = False
        .Superscript = True
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
End Sub

Nun nur noch eine leere Schaltfläche in die Symbolleiste ziehen und dieser das Makro zuweisen.

Viel Erfolg!

Gruß
MasterOfHardness

@Axel,

AL hat schon geschrieben, dass er den Button nicht findet!

@AL

frag mich nicht warum, aber er scheint für Excel nicht vorgesehen zu sein.
In der 2000er Version, ist die Möglichkeit auch nicht gegeben!

Vielleicht war der Gedanke der/die ProgrammiererInnen, das in Excel nicht der Bedarf besteht!

gruss
pelle

hi alle

hier noch mal der weg zum icon

extras/anpassen

befehle/makros

smily-symbol in die iconleiste ziehen,durch kurzes halten mit der linken auf dem icon auswahl des makros,das vorher schon fertiggestellt sein sollte.

gruss nighty

p.s,
welche versionen das nun unterstuetzen weiss ich nicht :(

hi alle

hier noch eine makro alternative

es werden von beliebigen mehrfachmarkierungen die schrift hochgestellt.

gruss nighty :)

Sub Makro1()
Dim a1%, g%, e%, z%
Dim b$(1000), b1$
g% = Len(ActiveWindow.RangeSelection.Address)
b1$ = ActiveWindow.RangeSelection.Address
z% = 1
For e% = 1 To g%
If Mid$(b1$, e%, 1) = "," Then z% = z% + 1
If Mid$(b1$, e%, 1) <> "$" Then
b$(z%) = b$(z%) + Mid$(b1$, e%, 1)
End If
Next e%
For t = 1 To z%
b2$ = b2$ + b$(t)
Next t
If Len(b2$) < 4 Then b2$ = b2$ + ":" + b2$
With Selection.Font
Range("" + b2$).Select
If .Superscript = False Then .Superscript = True
End With
End Sub

hi alle :)

noch nicht so ganz optimal,aber geht schon mal und ist auf 1000 mehrfachmarkierungen begrenzt.

gruss nighty

• die 1 hochstellen
• Label aus Steuerelement Toolbox
• "Einfügen" als Makro erstellen
• uhrzeit per schaltfläche
• Blattschutz Schaltfläche inaktiv