Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige