Gruppe
Ereignis
Problem
Die Auswahl aus einer Gültigkeitsliste in Spalte D soll durch eine Zahl ersetzt werden. Nur lauffähig ab XL10.
ClassModule: Tabelle1
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