Shortcut für tiefgestellte Indexzahlen ?

[Niko Kalinowski]

Ich möchte eine umfangreiche Tabelle mit chemischen Formeln in Excel
erzeugen. Um die tiefgestellten Indexzahlen darzustellen muß ich immer
die Zahl markieren und über das Kontextmenue/Zellen formatieren
/Schrift/Tiefgestellte die Formatierung erstellen. Gibt es für diesen
Vorgang einen Shortcut oder kann man einen erstellen?
Vielen Dank für die erhoffte Hilfe.
NIKO

[Falk Bock]

Hallo Niko,

Du hast da mehrer Möglichkeiten, ob es einen Short Cut gibt weiß ich nicht, aber es gibt ein Icon, das ein x - mit tiefgestellter 2 ist. So wenn Du dieses in der Iconleiste hast brauchst Du dieses nur noch anzuklicken. Die zweite Möglichkeit ist ein Makro aufzeichen, dem eine Tastenkombination und schon hast Du was Du möchtest. Der Makrocode sieht dann so aus:
 
         Sub Tiefstellen()

            With Selection.Font
 
                .Subscript = True
 
            End With

        End Sub

Grüße Falk
 

Niko Kalinowski schrieb:

[Martin Beck]

Hallo Falk, Niko,

 

Falks Makro stellt alle Zeichen im markierten Bereich tief. Wenn ich Niko richtig verstanden habe, möchte er nur ausgewählte Zeichen in einer Zelle tiefstellen. Hierzu habe ich eine Lösungsmöglichkeit, allerdings auf dem Rechner im Büro, so daß ich sie erst am Montag posten kann.

 

Gruß

Martin Beck

Falk Bock <Falk...@gmx.de> schrieb in im Newsbeitrag: 386E2776...@gmx.de...

[Manfred Grieble]

Niko Kalinowski schrieb:

>Ich möchte eine umfangreiche Tabelle mit chemischen Formeln in Excel
>erzeugen. Um die tiefgestellten Indexzahlen darzustellen muß ich

>die Zahl markieren und über das Kontextmenue/Zellen formatieren
>/Schrift/Tiefgestellte die Formatierung erstellen. Gibt es für
>diesen Vorgang einen Shortcut oder kann man einen erstellen?
>Vielen Dank für die erhoffte Hilfe.

Wäre da nicht der Formel-Editor hilfreich?
Einfügen/Objekt/Microsoft Formel-Editor 2.0
Tausend Möglichkeiten. Einfach mal ausprobieren.

Manfred

[Niko Kalinowski]

Hallo Falk,

danke für deine Antwort, das Icon mit der tiefgestellten 2 zum X kenne
ich aus Word, aber in Excel wird es mir unter
Ansicht/Symbolleisten/Anpassen nicht angeboten.Suche ich an der falschen
Stelle ?
Und Macros verändern immer den ganzen Inhalt einer Zelle, ich möchte
aber immer nur einige wenige Zahlen des Zellinhaltes tiefstellen.

Falk Bock schrieb:

> Hallo Niko,
>
> Du hast da mehrer Möglichkeiten, ob es einen Short Cut gibt weiß ich
> nicht, aber es gibt ein Icon, das ein x - mit tiefgestellter 2 ist. So
> wenn Du dieses in der Iconleiste hast brauchst Du dieses nur noch
> anzuklicken. Die zweite Möglichkeit ist ein Makro aufzeichen, dem eine
> Tastenkombination und schon hast Du was Du möchtest. Der Makrocode
> sieht dann so aus:
>
> Sub Tiefstellen()
>
> With Selection.Font
>
> .Subscript = True
>
> End With
>
> End Sub
>
> Grüße Falk
>
>

> Niko Kalinowski schrieb:
>
>> Ich möchte eine umfangreiche Tabelle mit chemischen Formeln in Excel
>>
>> erzeugen. Um die tiefgestellten Indexzahlen darzustellen muß ich

>> immer

>> die Zahl markieren und über das Kontextmenue/Zellen formatieren
>> /Schrift/Tiefgestellte die Formatierung erstellen. Gibt es für
>> diesen
>> Vorgang einen Shortcut oder kann man einen erstellen?
>> Vielen Dank für die erhoffte Hilfe.

>> NIKO
>

[Martin Beck]

Hallo Niko,

anbei die versprochenen Makros. Es werden ALLE Zahlen in einer
markierten Zelle oder in einem markierten Bereich tiefgestellt.

Gruß
Martin Beck

Sub Tiefstellen_von_Zahlen_in_aktiver_Zelle()
Dim arrDigit(10)
z = ActiveCell.Row
s = ActiveCell.Column
On Error GoTo errorhandler
a = ActiveCell.Characters.Count
Cells(z, s).Select
For j = 1 To a
For i = 0 To 9
If ActiveCell.Characters(j, 1).Text = i Then
ActiveCell.Characters(j, 1).Font.Subscript = True
End If
Next i
Next j
Exit Sub
errorhandler:
MsgBox ("Die Zelle ist nicht als Text formatiert.")
End Sub

Sub Tiefstellen_von_Zahlen_in_ausgewähltem_Bereich()
Dim arrDigit(10)
Application.ScreenUpdating = False
For Each cell In Selection
z = cell.Row
s = cell.Column
Cells(z, s).Select
On Error Resume Next
a = ActiveCell.Characters.Count
For j = 1 To a
For i = 0 To 9
If ActiveCell.Characters(j, 1).Text = i Then
ActiveCell.Characters(j, 1).Font.Subscript = True
End If
Next i
Next j
Next cell
Application.ScreenUpdating = True
End Sub

Niko Kalinowski <Nik...@aol.com> schrieb in im Newsbeitrag:
386E249F...@aol.com...

[Falk Bock]

Hi, Niko,

sollte ich mit dem Icon im Programm verhauen haben???? Warte ich schau mal
nach ....
<Ansicht, Symbolleiste, Anpassen, Befehle, Kategorie .... > mmmmh verdammt
irgendwo waren sie doch???

Ich finde die Dinger auch nicht!!??? Sorry, wer hilft mir mich nicht Lügen
zu strafen.

Aber Niko probiere mal das Makro von Martin, super einfach super ... Danke
Martin

CU Falk

Niko Kalinowski schrieb: