Gruppe
Ereignis
Problem
Wenn in Zelle B1 "Monate" steht, soll sich die Gültigkeitsliste aus Spalte A auf Monate, bei "Tage" auf Wochentage beschränken.
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