Thema: Abhängiger Aufruf einer Gültigkeitsliste

Home

Gruppe

Ereignis

Problem

Nur dann, wenn die Werte in den Zellen A1:C1 jeweils 10 betragen, soll bei Auswahl der Zellen A3, C3, A5 und C5 die Liste aus D1:D12 als Gültigkeitsliste festgelegt werden.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Range("A1") = 10 And _
      Range("B1") = 10 And _
      Range("C1") = 10 Then
      Range("A3,C3,A5,C5").Validation.Delete
      Range("A3,C3,A5,C5").Validation.Add _
         Type:=xlValidateList, _
         AlertStyle:=xlValidAlertStop, _
         Operator:=xlBetween, _
         Formula1:="=$D$1:$D$12"
   Else
      Range("A3,C3,A5,C5").Validation.Delete
   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