wie prüfe ich, ob in der aktiven Zelle eine Datenüberprüfung exisitert?
If activecell.validation = true then... funktioniert ja leider nicht.
Vielen Dank für eure Anregungen!!!
PeTeR
Function hasValidation(Cell As Range) As Boolean
On Error Resume Next
hasValidation = IsNumeric(Cell.Validation.Type)
On Error GoTo 0
End Function
Gruess Hansueli