HERBERS Excel-Forum - die Beispiele

Thema: Gültigkeitsliste ohne Lerrzellen

Home

Gruppe

Ereignis

Problem

Die Gültigkeitsliste in Zelle A1 soll die Daten aus Spalte A aus Tabelle2 ohne die Leerzeilen enthalten und sich anpassen.

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim intRow As Integer, intLastRow As Integer
   Dim txt As String
   If Target.Address <> "$A$1" Then Exit Sub
   With Worksheets("Tabelle2")
      intLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
      For intRow = 1 To intLastRow
         If Not IsEmpty(.Cells(intRow, 1)) Then
            txt = txt & .Cells(intRow, 1) & ","
         End If
      Next intRow
   End With
   txt = Left(txt, Len(txt) - 1)
   With Range("A1").Validation
      .Delete
      .Add _
         Type:=xlValidateList, _
         AlertStyle:=xlValidAlertStop, _
         Operator:=xlBetween, _
         Formula1:=txt
   End With
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