Zahl ersetzen durch bestimmten Text in einer Zelle

[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