Gruppe
Ereignis
Problem
Wie kann ich bei Auswahl von Zelle B3 eine Gültigkeitsliste dann aufklappen lassen, wenn Zelle A1 nicht leer ist?
ClassModule: Tabelle1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address <> "$B$3" Then Exit Sub
If Not IsEmpty(Range("A1")) Then
SendKeys "%{down}"
With Target.Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$E$1:$E$12"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
End Sub