HERBERS Excel-Forum - die Beispiele

Thema: Gültigkeitsliste bedingt aufklappen lassen

Home

Gruppe

Ereignis

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

Beiträge aus dem Excel-Forum zu den Themen Ereignis und SelectionChange

Msg mit 2 Ereignissen +Cancel Ereignisprozedur
Makro für ereignisabh. Druck verschiedener Seiten UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden? Zeilen aus- einblenden als Ereignis?
Welches Ereignis ist das richtige ?? Ereignis Arbeitsblatt sperren abfangen
Worksheet_SelectionChange Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis Worksheet_SelectionChange bzw. Interior
Change-Ereignis in Combobox unterdrücken Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen Command Button Ereignis
Ereignis von Laufzeit-Checkbox change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern change-ereignis bei dynamisch erstellten Controls
Schaltfläche - Ereignis erst nach Bestätigung ausl SelectionChange - Change - Reihenfolge?
Objekt_Error - Ereignis in UserForm selectionchange nicht, wenn before rightclick
change ereigniss auf userform. Click-Ereignis für Checlbox nicht ausführen?
Speichern einer Kopie durch Ereigniss Workbook_bef Reagieren auf Tastaturereignisse
Ausnahmen für Exit-Ereignis Exit-Ereignis SetFocus
select Ereigniss UF Show Ereignis zeitweise mit Fehler
Ereignismakro Selectereigniss in Spalte
doppeltes Klick-Ereignis Doppelklick-Ereignis
VBA Ereignis: Änderung der Hintergrundfarbe Ereigniscode aus zwei Teilen fnk. nicht
Exit Ereignis einer Textbox im Frame Change-Ereignis bei Auswahllisten
Worksheet_Change Ereignis erweitern Exit Ereignis springt nicht an
Exit-Ereignis Ereignis "BeforeSave" - ".Find" geht nic
change ereigniss nicht ausführen Userform Worksheet_SelectionChange
Worksheet_SelectionChange Exit Ereignis