Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Abhängiger Aufruf einer Gültigkeitsliste

Gruppe

SelectionChange

Problem

Nur dann, wenn die Werte in den Zellen A1:C1 jeweils 10 betragen, soll bei Auswahl der Zellen A3, C3, A5 und C5 die Liste aus D1:D12 als Gültigkeitsliste festgelegt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Range("A1") = 10 And _
      Range("B1") = 10 And _
      Range("C1") = 10 Then
      Range("A3,C3,A5,C5").Validation.Delete
      Range("A3,C3,A5,C5").Validation.Add _
         Type:=xlValidateList, _
         AlertStyle:=xlValidAlertStop, _
         Operator:=xlBetween, _
         Formula1:="=$D$1:$D$12"
   Else
      Range("A3,C3,A5,C5").Validation.Delete
   End If
End Sub