Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Gültigkeitsliste nach Kriterium festlegen

Gruppe

SelectionChange

Problem

Wenn in Zelle B1 "Monate" steht, soll sich die Gültigkeitsliste aus Spalte A auf Monate, bei "Tage" auf Wochentage beschränken.

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

ClassModule: Tabelle1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim sList
   If Target.Column <> 1 Then Exit Sub
   If Range("B1").Value <> "Monate" And _
      Range("B1").Value <> "Tage" Then Exit Sub
   Select Case Range("B1").Value
      Case "Monate"
         sList = "Monate"
      Case "Tage"
         sList = "Tage"
   End Select
   With Target.Validation
      .Delete
      .Delete
      .Add _
         Type:=xlValidateList, _
         AlertStyle:=xlValidAlertStop, _
         Operator:=xlBetween, _
         Formula1:="=" & sList
   End With
End Sub