Ich stelle mir das so vor:
If WS.Cells(x,y).?validationActive? = true then ' Wenn in der Zelle Gültigkeitsprüfung enthält
WS.Cells(x,y).select ' Selektieren der Zelle
SendKeys "%{down}", True ' Öffnen der Auswahlliste
End If
Vielen Dank im Voraus für Unterstützung
Johann