'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'+ Excel 97 VBA Code
'+ entwickelt von Winfried Radner
'+ mailto:Wolf.W.Radzinski@gmx.de
'+ Benutzung frei - ohne Gewähr<br>
'+ 25.2.2002 --- www.rendar.de
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'+
'+  VBA Makro/AddIn:  textformat.xla
'+  siehe: http://www.rendar.de/excel/textformat.xla
'+
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'+
'+
'+  das AddIn ermöglicht die Änderung der Formate Fett, Kursiv,
'+  Unterstrichen (einfach) sowie zusätzlich Tiefgestellt und
'+  Hochgestellt über Tastatur-ShortCuts (was bei Sub- und 
'+  Superscript und meinem Excel 97 irgendwie ziemlich umständlich
'+  "funktioniert")
'+
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Wie funtkioniert das Makro/AddIn?

Es öffnet bei Bedarf eine Userform mit eingebetteter Textbox. Die
Stringeingabe erfolgt dann gänzlich in der Textbox. Die Format-
änderungen werden HTML-ähnlich in diese Textbox eingefügt und beim
Beenden des Strings automatisch ins richtige Format umgewandelt und
in die aktive Zelle übernommen. Der Inhalt der aktiven Zelle wird
beim Öffnen der Userform in HTML-ähnlicher Notation in die Textbox
kopiert und kann somit auch geändert werden. Alle Formatänderungen
werden über Tastatur-Shortcuts eingefügt.

Hat man obiges AddIn installiert kann man die Userform aus einem
EIGENEN Makro heraus wie folgt aufrufen:

sub uf()
run "textformat.xla!uf"
end sub

bzw.

sub uf()
run "textformat.xla!uf", True
end sub

oder

sub uf2()
run "textformat.xla!uf", False
end sub

Diesen Makros/diesem makro kann man z.B. die Tastenkombination
<strg><z> zuordnen!

Bei uf sind die Shortcuts als Togglebuttons realisiert, bei uf2 gibt
es unterschiedliche Shortcuts für das Ein- und Ausschalten!

Folgende Shortcuts sind möglich:
================================

wenn Togglemodus = (true oder false) dann gilt:
---------------------------------------------

<tab> oder <enter> 
schließt die Userform und kopiert den Textboxinhalt in die aktive Zelle

<esc> bzw. "Form schließen"
schließt die Userform ohne die aktive Zelle zu verändern

<strg><alt><t>
schaltet den Togglemodus ein oder aus

<alt><+>  finde (Marke rechts v. Cursor) hochgestellt ein
<alt><->  finde tiefgestellt ein
<alt><f>  finde fett ein
<alt><k>  finde kursiv ein
<alt><u>  finde einfach unterstichen ein
<alt><?>  finde nächste html-Marke

<shift><alt><+>  finde hochgestellt aus
<shift><alt><->  finde tiefgestellt aus
<shift><alt><f>  finde fett aus
<shift><alt><k>  finde kursiv aus
<shift><alt><u>  finde einfach unterstichen aus
<shift><alt><?>  finde nächste html-Marke

wenn Togglemodus = true dann gilt:
----------------------------------

<shift><strg><+>  hochgestellt ein/aus
<shift><strg><->  tiefgestellt ein/aus
<shift><strg><f>  fett ein/aus
<shift><strg><k>  kursiv ein/aus
<shift><strg><u>  einfach unterstichen ein/aus

wenn Togglemodus = false dann gilt:
----------------------------------

<strg><+>  hochgestellt ein
<strg><->  tiefgestellt ein
<strg><f>  fett ein
<strg><k>  kursiv ein
<strg><u>  einfach unterstichen ein

<shift><strg><+>  hochgestellt aus
<shift><strg><->  tiefgestellt aus
<shift><strg><f>  fett aus
<shift><strg><k>  kursiv aus
<shift><strg><u>  einfach unterstichen aus