Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngValidation As Range
On Error GoTo ENDE
Set rngValidation = Cells.SpecialCells(xlCellTypeAllValidation)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, rngValidation) Is Nothing Then
If ActiveCell.Validation.InCellDropdown = True And _
ActiveCell.Validation.Type = 3 Then
Application.EnableEvents = False
'Statt der MsgBox hierhin schreiben, was dann passieren soll.
MsgBox "Dropdown!"
End If
End If
ENDE:
Application.EnableEvents = True
End Sub
Sub test()
Dim B As Boolean
On Error Resume Next
B = Range("B1").Validation.InCellDropdown
On Error GoTo 0
MsgBox IIf(B, "Vorhanden", "Nicht vorhanden")
End Sub
Sub test()
Dim x
On Error Resume Next
x = Selection.Validation.Type
On Error GoTo 0
If x = 0 Then MsgBox "keine Prüfung"
End Sub
Um zu prüfen, ob in einer Zelle eine Gültigkeitsprüfung (Validation) hinterlegt ist, kannst Du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu, indem Du mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" klickst und "Einfügen" > "Modul" auswählst.
Füge den folgenden Code in das Modul ein:
Sub checkValidation()
Dim hasValidation As Boolean
On Error Resume Next
hasValidation = Range("A1").Validation.Type
On Error GoTo 0
If hasValidation > 0 Then
MsgBox "Gültigkeitsprüfung vorhanden."
Else
MsgBox "Keine Gültigkeitsprüfung vorhanden."
End If
End SubSchließe den VBA-Editor und gehe zurück zu Excel.
Führe das Makro aus, um zu testen, ob eine Gültigkeitsprüfung in Zelle A1 vorhanden ist.
Fehler: "Laufzeitfehler 1004: Die Methode 'Validation' für das Objekt 'Range' ist fehlgeschlagen."
Fehler: "Keine Rückmeldung."
Wenn Du Excel ohne VBA verwenden möchtest, gibt es auch eine manuelle Methode zur Überprüfung der Gültigkeit:
Daten > Datenüberprüfung.Hier sind einige praktische Beispiele, wie Du die Gültigkeitsprüfung in Excel testen kannst:
Dropdown-Liste erstellen:
Sub testDropdown()
If Range("B1").Validation.InCellDropdown Then
MsgBox "Dropdown vorhanden!"
Else
MsgBox "Kein Dropdown."
End If
End SubGültigkeitsprüfung auf mehrere Zellen anwenden:
1. Wie kann ich überprüfen, ob ein Wert in einer Zelle vorhanden ist?
Du kannst die Funktion IsEmpty verwenden, um zu testen, ob eine Zelle leer ist:
If IsEmpty(Range("A1")) Then
MsgBox "Zelle A1 ist leer."
Else
MsgBox "Wert in Zelle A1 vorhanden."
End If2. Was ist eine Gültigkeitsprüfung in Excel? Eine Gültigkeitsprüfung in Excel sorgt dafür, dass nur bestimmte Daten in eine Zelle eingegeben werden können, wie z.B. eine Liste von Werten oder Zahlen in einem bestimmten Bereich.