Hallo also ja und nein! Sortierung ist immr möglich. Drop Down listen an sich können zweispaltig sein. Die Gültigkeitsliste ist aber immer einspaltig. Zumindest ist vom Ex als Quelle eine Liste (die einspaltig ist) vorgesehen. Was anderes kenne ich nicht.
Das sortieren der Liste könnte man mit verschieden Varianten gewährleisten. Das einfachste währe wohl, die Quelldaten am Anfang (vor dem Einlesen) einfach zu sortieren. Habe ich mal unten gemacht. VG
Option Explicit
Sub gütligkeit()
Dim gültigliste As String
Dim i As Long
Dim letzte As Long
gültigliste = ","
' hier anpasen, 3 steht für Spalte c, könnte man noch feiner ab ge. Zeile festlegen
letzte = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
'sortieren
ActiveSheet.Columns(3).Sort key1:=ActiveSheet.Cells(1, 3), order1:=xlAscending
For i = 1 To letzte
If ActiveSheet.Cells(i, 2) <> "" Then
If InStr(1, gültigliste, "," & ActiveSheet.Cells(i, 2) & ",", vbTextCompare) = 0 Then gültigliste = gültigliste & ActiveSheet.Cells(i, 2) & ","
End If
Next i
If gültigliste <> "," Then
gültigliste = Mid(gültigliste, 2, Len(gültigliste) - 2)
With Range("a2").Validation
.Delete
.Add Type:=xlValidateList, Formula1:=gültigliste
End With
End If
End Sub
|