'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'+ Excel 97 VBA Code
'+ entwickelt von Winfried Radner
'+ mailto:Wolf.W.Radzinski@gmx.de
'+ Benutzung frei - ohne Gewähr
'+ 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
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:
---------------------------------------------
oder
schließt die Userform und kopiert den Textboxinhalt in die aktive Zelle
bzw. "Form schließen"
schließt die Userform ohne die aktive Zelle zu verändern
schaltet den Togglemodus ein oder aus
<+> finde (Marke rechts v. Cursor) hochgestellt ein
<-> finde tiefgestellt ein
finde fett ein
finde kursiv ein
finde einfach unterstichen ein
> finde nächste html-Marke
<+> finde hochgestellt aus
<-> finde tiefgestellt aus
finde fett aus
finde kursiv aus
finde einfach unterstichen aus
> finde nächste html-Marke
wenn Togglemodus = true dann gilt:
----------------------------------
<+> hochgestellt ein/aus
<-> tiefgestellt ein/aus
fett ein/aus
kursiv ein/aus
einfach unterstichen ein/aus
wenn Togglemodus = false dann gilt:
----------------------------------
<+> hochgestellt ein
<-> tiefgestellt ein
fett ein
kursiv ein
einfach unterstichen ein
<+> hochgestellt aus
<-> tiefgestellt aus
fett aus
kursiv aus
einfach unterstichen aus