Office: Symbol für Wort einfügen

Hallo zusammen,

gibt es bei Excel die Möglichkeit, ein Symbol zu verwenden, wenn ein bestimmtes Wort in einer Zelle steht?
Beispiel:
Wenn ich (Haken) in eine Zelle schreibe, dann soll ein grüner Haken in der Zelle erscheinen

 

nur üer VBA

 

Moin!
Ich bin mir zwar relativ sicher, dass Du das anders meinst …


Gruß Ralf

 

auf Ralf aufbauen, VBA für Spalte A,1

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And UCase(Target) = "HAKEN" Then
        Application.EnableEvents = False
            Target.Font.Name = "Wingdings"
            Target.Formula = "=CHAR(252)"
        Application.EnableEvents = True
    End If
End Sub

Gruß Hajo

 

Wobei ich (wenn in gleicher Zelle ersetzt werden soll) nicht die Schriftart wechseln würde.
Es gibt im Unicode-Zeichensatz einen Haken: UNIZEICHEN(10004)
In VBA ist dies ChrW(10004)

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
  If .Column = 1 And .CountLarge = 1 Then
    If .Value Like "*Haken*" Then .Value = ChrW(10004)
  End If
End With
End Sub

Gruß Ralf