Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Elemente der Gültigkeitsprüfung immer sortiert anzeigen

Gruppe

Change

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ß?

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

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