Function IDX(xrg As Range) As Long
Dim xtype, rng As Range, liste
If xrg.Count > 1 Then IDX = -1: Exit Function
On Error Resume Next: xtype = xrg.Validation.Type
If xtype <> xlValidateList Then IDX = -1: Exit Function
Set rng = Range(xrg.Validation.Formula1)
If Not rng Is Nothing Then
IDX = Application.Match(xrg.Value, rng, 0)
Else
liste = Split(xrg.Validation.Formula1, Application.International(xlListSeparator))
IDX = Application.Match(xrg.Value, liste, 0)
End If
End Function