Symbole per Doppelklick einfügen (Excel)
01.07.2011

Symbole per Doppelklick einfügen
Versionen: Excel 97, 2000 und 2002

Stellen Sie sich einmal vor, Sie müssen auf einem Ausdruck endlose Listen prüfen. Jede richtige Zeile kennzeichnen Sie mit einem Häkchen; fehlerhafte Zeilen werden mit einem traurigen Smiley markiert. Diese Arbeit können Sie bei Bedarf auch direkt in Ihrer Excel-Tabelle vornehmen:

Drücken Sie die Tastenkombination Alt+F11, um in die Entwicklungsumgebung von Excel zu gelangen.

Klicken Sie mit der rechten Maustaste in das Fenster des Projekt-Explorer und wählen Sie aus dem Kontextmenü den Befehl Einfügen-Modul.

Erfassen Sie zunächst die beiden Makros zum Abhaken bzw. Anmerken:

Sub Hacken()
ActiveCell.Value = "Ö"
ActiveCell.Font.Name = "Symbol"
End Sub

Sub NichtOK()
ActiveCell.Value = ")-:"
ActiveCell.Font.Name = "Arial"
End Sub

Dann folgen die Ereignismakros: Im Fenster des Projekt-Explorer klicken Sie zweimal auf die Tabelle, in der Sie die automatische Formatierung verwenden möchten. Geben Sie dann ein:

Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Value = "" Then Hacken Else Target.Clear
Cancel = True
End Sub

Private Sub Worksheet_BeforeRightClick _
(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Value = "" Then NichtOK Else Target.Clear
Cancel = True
End Sub

Danach fügen Sie per Doppelklick in eine Zelle ein Häkchen ein. Der Doppelklick mit der rechten Maustaste ruft das Zeichen )-: ab.

Öffnungszeiten
Ladengeschäft:
Montag bis Donnerstag
15:00-18:00 Uhr
Freitag
8:30:13:00 Uhr
Samstag
nach Terminvereinbarung

Wir vereinbaren auch
gerne Termine über unsere
Öffnungszeiten hinaus.

Telefon:
06723 889005

Telefax:
06723 889006

E-Mail:
info@tibe.de

Adresse:
Tibe Services
Inhaber: Tim Berlebach
Zangerstraße 22
65375 Oestrich-Winkel /
Ortsteil Hallgarten

Öffentlicher Parkplatz:
Taunusstraße/
Ecke Zangerstraße

 Preisänderungen und Irrtümer bleiben vorbehalten.  Angebot gilt solange Vorrat reicht!