Clever-Excel-Forum

Guten Morgen,
 
Excel soll sich zur jeweiligen Zahl in der Spalte "E" den passenden Namen heraussuchen und die Zahl durch den Namen im selben Feld ersetzen.
Wenn ich zum Beispiel "7707" eingebe, soll diese Zahl durch Auto ersetzt werden. Bei "7708" durch "Bus", usw.

Mein Avatar wäre das Bild, in welche Spalte es rein soll.

Nur bekomme ich dies nicht hin. Kann mir da jemand helfen

---

---

Hallo,

Code im Modul des Tabellenblattes:

Private Sub Worksheet_Change(ByVal Target As Range)

  With Target.Cells(1)

    If .Column = 5 And .Row > 2 Then

      On Error Resume Next

      Application.EnableEvents = False

      Select Case .Value

        Case 7707

          .Value = "Auto"

        Case 7708

          .Value = "Bus"

        Case Else

          .Value = "oder so ..."

      End Select

      Application.EnableEvents = True

      On Error GoTo 0

    End If

  End With

End Sub

Gruß Uwe