Tipps: Selbsterklärende Symbol-Schaltflächen unter Excel 95

Selbsterklärende Symbol-Schaltflächen unter Excel 95 – die zweite

In der Ausgabe 8/98 fragte WIN- Leser René Trafelet nach einer Möglichkeit, in Excel 95 benutzerdefinierte Schaltflächen mit eigenen Quickinfo-Texten zu versehen. WIN schrieb, daß dies nicht ohne weiteres möglich sei und schlug vor, den Statuszeilen-Text entsprechend zu ändern, wofür Excel eine eigene Funktion zur Verfügung stellt. Mehrere Leser wiesen danach auf eine Programmier-Lösung per Makro-Anweisungen hin, die Sie im folgenden lesen:

Mit den entsprechenden Makro-Anweisungen lassen sich auch benutzerdefinierte Schaltflächen mit eigenen Quickinfo-Texten versehen. Rufen Sie zunächst den Befehl Extras – Optionen auf und prüfen im Register Allgemein bei den Optionen Standardeinstellung und Aktuelle Einstellung die Einstellung Deutschland/Deutsch. Wenn nötig, ändern Sie die Einstellungen entsprechend, damit der Makro-Editor mit den deutschen Befehlen zurechtkommt.

Rufen Sie dann den Befehl Extras – Makro auf, geben Sie dem Makro einen Namen und klicken auf die Bearbeiten. Dann geben Sie folgende Zeilen im Editor ein:

Sub Makro1 ()¶
SymbolleisteListe (ôSymbolleistennameô).SymbolleistenschaltflächeListe (Schaltflächennummer).Name = ôQuickinfoô¶
End Sub¶

Als Symbolleisten-Namen geben Sie die Bezeichnung der Symbolleiste an. Diese finden Sie in der Liste, die Sie durch einen Klick mit der rechten Maustaste auf den Hintergrund der Symbolleisten öffnen können. Die Schaltflächennummer gibt die Position der entsprechenden Schaltfläche an, wobei eventuelle Zwischenräume mitzählen. Die Quickinfo ist der Text, den Excel ausgeben soll.

Sie können diesen Befehl für mehrere Schaltflächen auch wiederholt mit angepaßten Werten aufrufen. Sie brauchen das Makro nur einmal mit dem Befehl Extras – Makro – Ausführen auszuführen, um die Quickinfos dauerhaft zuzuweisen. Um die Quickinfo wieder zu entfernen, ist ein erneuter Durchlauf des Makros notwendig. Allerdings ist dabei die Zeichenkette ô Quickinfoô durch einen leeren String ô ô zu ersetzen. Dann erscheint wieder der Text Benutzerdefiniert als Quickinfo.