Entferntes Feature:

Sub sbValidateA5()
Dim lstrVal As String, lloRow As Long, lboExist As Boolean, lstrSplit() As String, liIdx As Integer
With Sheets("Admin") 'wenn im Original anderer Name, dann anpassen!
For lloRow = 30 To .Cells(.Rows.Count, 1).End(xlUp).Row
lstrSplit = Split(lstrVal, ",")
For liIdx = 0 To UBound(lstrSplit)
If lstrSplit(liIdx) = .Range("A" & lloRow).Value Then
lboExist = True
Exit For
End If
Next
If lboExist = True Then
lboExist = False
Else
lstrVal = lstrVal & .Range("A" & lloRow).Value & ","
End If
Next
End With
lstrVal = Left(lstrVal, Len(lstrVal) - 1)
With Range("A5").Validation 'hier erhält die Zelle A5 die Dropdownfunktion; jede Sortennr kommt nur einmal im Dropdown vor, auch wenn diese mehrfach in Tabelle1 enthalten ist!
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=lstrVal
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub