Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Gültigkeitsprüfung nach Liste aus zweiter Tabelle

Gruppe

Liste

Problem

Wie kann ich als Grundlage einer Gültigkeitsprüfung eine Liste aus einer zweiten Tabelle zugrundelegen? Immer dann, wenn sich die Liste ändert, sollen diese Änderungen auch bei der Gültigkeitsprüfung berücksichtigt werden.

Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.

ClassModule: Tabelle3

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   If Target.Column <> 1 Then Exit Sub
   Range("A1").CurrentRegion.Columns(1).Name = "Quelle"
End Sub

StandardModule: modMain

Sub Gueltigkeit()
   With Selection.Validation
      .Add _
         Type:=xlValidateList, _
         AlertStyle:=xlValidAlertStop, _
         Operator:=xlBetween, _
         Formula1:="=Quelle"
    End With
End Sub