Code Snippet "VBA Excel"

Excel-Funktion zur Überprüfung der Gültigkeitsprüfung

Wie Excelfunktion verwendbar, v.a. für nachträgliche Überprüfung bei Dateneingabe oder Erstellung der Gültigkeitsprüfung via VBA

'--------------------------------------------------------------
' überprüft, ob in einem Zellbereich alle Zellen die Kriterien der Gültigkeitsprüfung erfüllen
Function alledatengueltig(ByRef objrange As Range)
  Dim objcellrange As Range
  
  For Each objcellrange In objrange
    If objcellrange.Validation.Value = False Then
      alledatengueltig = False
      Exit Function
    End If
  Next
  alledatengueltig = True
End Function