Frage:

Die Auswahl aus einer Gültigkeitsliste in Spalte D wird durch eine Zahl ersetzt. Funktioniert nur mit XL9 und höher.

Antwort:

Fügen Sie den folgenden Code in das Modul Diese Arbeitsmappe ein.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 4 Then Exit Sub

Application.EnableEvents = False

Target.Value = WorksheetFunction.VLookup(Target.Value, Range("A1:B12"), 2, 0)

Application.EnableEvents = True

End Sub