Gruppe
Ereignis
Problem
Wie kann ich die Elemente der Gültigkeitsprüfung immer in sortierter Reihenfolge anzeigen lassen, ohne daß der Listenbereich jedesmal manuell sortiert werden muß?
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Range("A1:A10").Sort _
Key1:=Range("A1"), _
Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub