Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Gültigket abfragen | Herbers Excel-Forum


Betrifft: Gültigket abfragen von: SteffenS
Geschrieben am: 06.12.2009 10:08:35

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

  

Betrifft: AW: Gültigket abfragen von: Tino
Geschrieben am: 06.12.2009 10:17:13

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


  

Betrifft: prüfe besser ob >=0 weil es 0 auch gibt. von: Tino
Geschrieben am: 06.12.2009 10:27:54

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


  

Betrifft: das Funktioniert nicht von: SteffenS
Geschrieben am: 06.12.2009 10:29:26

Es kommt immer False raus.

Woran kann das liegen?

Danke

Steffen


  

Betrifft: AW: das Funktioniert nicht von: Nepumuk
Geschrieben am: 06.12.2009 10:41:46

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


  

Betrifft: hier ein Beispiel, bei mir geht es. von: Tino
Geschrieben am: 06.12.2009 10:42:37

Hallo,

https://www.herber.de/bbs/user/66391.xls

Gruß Tino


  

Betrifft: bei mir gehts jetzt ausch von: SteffenS
Geschrieben am: 06.12.2009 10:57:00

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


Beiträge aus den Excel-Beispielen zum Thema "Gültigket abfragen"