Code Snippet "VBA Excel"

Existiert auf einer Zelle oder einem Zellbereich eine Gültigkeitsprüfung (Validierung)

'*******************************************************************
'Überprüft, ob auf einem Range eine Validierung vorhanden ist
'  geht nur über Fehler, mit isobject, isnull, isempty geht es nicht
Function funblnvalidationexists(ByVal objrange As Range)
  On Error GoTo fehler
  If IsNumeric(objrange.Validation.Type) Then
    funblnvalidationexists = True
  End If
  Exit Function
fehler:
  Err.Clear
  funblnvalidationexists = False
End Function