Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen, ob Gültigkeitsprüfung in Zelle vorhanden

Prüfen, ob Gültigkeitsprüfung in Zelle vorhanden
Adi
Hallo zusammen,
kann mit jemand sagen, wie ich per VBA abprüfen kann, ob in einer Zelle eine Gültigkeitsprüfung (Validation, eigentlich der Dropdown ein Liste) mittels Menüpunkt "Daten | Gültigkeit..." hinterlegt ist.
Danke im Voraus
Gruss
Adi

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Prüfen, ob Gültigkeitsprüfung in Zelle vorhanden
16.02.2006 19:44:42
K.Rola
Hallo,
hier ein Beispiel für InCellDropdown und Validationstyp Liste:
Option Explicit

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

Gruß K.Rola
Anzeige
Das ist doch der Unterschied...
16.02.2006 19:49:16
{Boris}
Hi Liebste,
ich hätte jetzt den Holzhammer rausgeholt :p
Option Explicit

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

Gruß und Kuss
{Boris}
AW: Das ist doch der Unterschied...
16.02.2006 19:54:40
Uduuh
Hallo,
so ähnlich hatte ich es auch vor. Nur: Ist überhaupt eine Regel hinterlegt:

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

Gruß aus’m Pott
Udo

Anzeige
AW: Das ist doch der Unterschied...
16.02.2006 20:19:47
K.Rola
Hi Boris, alter Charmeur,
da das dropdown default ist, dürfte immer "Vorhanden" gemeldet werden.
Es muss schon noch getestet werden, ob eine Prüfung stattfindet.
Gruß und dito,
K.Rola
Danke an Alle die geholfen haben
16.02.2006 20:58:14
Adi
Erst ggfs. einen Fehler provozieren und dann abprüfen, wollte ich verhindern.
Da aber Alle diese Schiene vorgeschlagen haben, gibt's wohl nix anderes.
Hat mir trotzdem sehr geholfen.
THX
AW: Danke an Alle die geholfen haben
16.02.2006 21:00:17
K.Rola
Hallo,
bei meinem Vorschlag wird kein Fehler provoziert, nur der Fall abgefangen, dass
es keine Zellen mit Gültigkeit gibt.
Gruß K.Rola
AW: Danke an Alle die geholfen haben
16.02.2006 22:03:43
Adi
Ups. Sorry.
Voll korrekt.
Hier wird kein Fehler provoziert.
Bei mir ist das Ergebnis 3 oder Empty. - Prüf' ich also gegen Empty.
10^3 Dank nochmals
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12