Hallo! Das hier wäre eine Möglichkeit. Die Daten noch anpassen und überlgen wann es starten soll (bei Öffnen oder aktualisiern des Blattes). Die Daten sind nicht sortiert, kommen aber nur einmal vor. Fehlermeldungen erscheinen, so dass die Eingabe aus der Liste erzwungen ist. Könne man aber noch ändern. Bitte mal schauen. VG
Option Explicit
Sub gütligkeit()
Dim gültigliste As String
Dim i As Long
gültigliste = ","
For i = 1 To 10
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
|