Gruppe
Allgemein
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.
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