VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Wert aus Gültigkeitsliste durch eine Zahl ersetzen

Gruppe

Ereignis

Bereich

Change

Thema

Wert aus Gültigkeitsliste durch eine Zahl ersetzen

Problem

Die Auswahl aus einer Gültigkeitsliste in Spalte D soll durch eine Zahl ersetzt werden. Nur lauffähig ab XL10.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change