Gruppe
Allgemein
Bereich
Liste
Thema
Gültigkeitsprüfung nach Liste aus zweiter Tabelle
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