Zahl ersetzen durch bestimmten Text in einer Zelle

[Raymond1234]

Hallo alle zusammen , hoffe dass irgendeiner mir helfen kann.

Beispiel:

Wenn ich in Zelle A1  798 eingeben und die Zelle verlasse will ich dass 798 ersetzt wird durch einen bestimmten Text
Wenn ich in Zelle A1 714 eingebe und die Zelle verlasse soll ein anderer bestimmter Text erscheinen usw....

Geht das überhaupt und wenn ja wäre mir sehr geholfen

Vielen Dank im Vorraus für alle nützlichen und unnützlichen Antworten

Viel Spass beim grübeln

[Flotter Feger]

Hallo,

dazu kannst du die Autokorrektur verwenden, oder ein VBA-Makro.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then
    Select Case Target.Text
    Case "714": Target.Value = "Ich bin Neu"
    Case "798": Target.Value = "Total NEU"
    Case Else: Target.Value = ""
    End Select
End If
Application.EnableEvents = True
End Sub

[Raymond1234]

Vielen Dank Sabina hat super geklappt mit der Autokorrektur
muss nur alles hinzufügen was ich brauche.

Aber eine Frage hätte ich doch noch
Kann man die Autokorrektur für bestimmte Zellen einrichten oder ist es immer für das komplette Sheet ??

Ciao ciao und vielen Dank nochmal
Schöne Grüsse aus Luxemburg
Raymond

[Flotter Feger]

Hallo,

die Autokorrektur, ist immer für das komplette Excel-Application gültig ... in allen Mappen und allen Sheets ... wie auch in Word.

Willst du es auf einige Zellen in bestimmten Sheets begrenzen, bietet es sich an, es über das Makro zu machen, dass ich beigefügt habe.