Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Gültigkeitsliste bedingt aufklappen lassen

Gruppe

SelectionChange

Problem

Wie kann ich bei Auswahl von Zelle B3 eine Gültigkeitsliste dann aufklappen lassen, wenn Zelle A1 nicht leer ist?

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

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