Bei Eingabe eines Zeichens soll automatisch ein Begriff eingetragen werden (Tipp_81) -
25.01.2009In eine Tabelle müssen Sie oft wiederkehrende Begriffe eintragen. Das würde aber schneller gehen, wenn Sie statt der Worte nur ein Zeichen eintippen und dann das zugehörige Wort automatisch übernommen wird. Mit folgendem Makro ist das kein Problem:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If IsEmpty(Target) Then Exit Sub
If Target = "1" Then Target = "oben"
If Target = "2" Then Target = "unten"
If Target = "3" Then Target = "rechts"
If Target = "4" Then Target = "links"
End Sub
Bei Eingabe einer 1 erscheint in der Zelle das Wort "oben", bei einer 2 "unten", bei der 3 "rechts" und bei der 4 "links".
Wechseln Sie mit der Tastenkombination Alt+F11 in die Entwicklungsumgebung und doppelklicken Sie auf das Tabellenblatt, in der das Makro eingesetzt werden soll. In das erscheinende Fenster kopieren Sie dann den Quellcode.
