Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
23.04.2024 08:04:28
4-fach verschachtelte WENN-Funktion
22.04.2024 22:36:13
Marko automatisch ausführen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1120to1124
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
1120to1124
1120to1124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gültigket abfragen

Gültigket abfragen
SteffenS
Guten morgen,
wie kann ich abfragen ob eine Zelle eine Gültigkeit hat?
Mit
Range("L24").Validation= True
geht es leider nicht.
Danke Euch
Steffen Schmerler

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Gültigket abfragen
06.12.2009 10:17:13
Tino
Hallo,
Du kannst es mal so versuchen.
Dim boValidation As Boolean
On Error Resume Next
boValidation = Range("L24").Validation.Type > 0
On Error GoTo 0
If boValidation Then
MsgBox "Zelle hat eine Gültigkeitsprüfung"
Else
MsgBox "Zelle hat keine Gültigkeitsprüfung"
End If
Gruß Tino
prüfe besser ob >=0 weil es 0 auch gibt.
06.12.2009 10:27:54
Tino
Hallo,
Dim boValidation As Boolean
On Error Resume Next
boValidation = Range("L24").Validation.Type >= 0
On Error GoTo 0
If boValidation Then
MsgBox "Zelle hat eine Gültigkeitsprüfung"
Else
MsgBox "Zelle hat keine Gültigkeitsprüfung"
End If
Gruß Tino
Anzeige
das Funktioniert nicht
06.12.2009 10:29:26
SteffenS
Es kommt immer False raus.
Woran kann das liegen?
Danke
Steffen
AW: das Funktioniert nicht
06.12.2009 10:41:46
Nepumuk
Hallo,
versuch es mal so:
Public Function Validation_Exist(objCell As Range) As Boolean
    On Error Resume Next
    Validation_Exist = Not Intersect(objCell, _
        objCell.Parent.Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing
    Err.Clear
End Function

Public Sub Test()
    If Validation_Exist(Tabelle1.Cells(1, 1)) Then
        MsgBox "Zelle enthält eine Gültigkeitsprüfung"
    Else
        MsgBox "Zelle enthält keine Gültigkeitsprüfung"
    End If
End Sub

Gruß
Nepumuk
Anzeige
bei mir gehts jetzt ausch
06.12.2009 10:57:00
SteffenS
Hatte in meiner Schleife vergessen den Wert wieder zurückzu setzen
'alte Gültigkeit löschen
AJ.Cells(j, k).Validation.Delete
'Abfrage Gültigkeit
boValidation = False
On Error Resume Next
boValidation = VJ.Cells(i, k).Validation.Type >= 0
On Error GoTo 0
'neue Gültigkeit setzen
If boValidation = True Then AJ.Cells(j, k).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=$G$204:$G$234"
End If
Danke nochmal an Alle :-)
VG
Steffen
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige