AW: Gültigkeitsprüfung / Validation
14.10.2003 13:41:19
Maximilian
Hallo Galenzo,
vielen Dank für deine Antwort.
Aber das habe ich bereits gemacht, und das unten dargestellte Modul entwickelt.
Ziel ist es, einige Eigenschaften in eine leere Tabelle zu schreiben.
Jedoch immer wenn das Programm in der QuellTabelle auf eine Zelle ohne Gültigkeit stösst, bricht es mit einer Fehlermeldung ab. Diesen Fehler kann ich auch nicht abfangen.
Ich bräuchte also eine "simple" Abfrage, ob eine Gültigkeit vorhanden ist, oder nicht.
Mit besten Dank
Maximilian
Sub ZellenGueltigkeit()
'On Error Resume Next
Dim zeile As Long
Dim spalte As Long
zeile = 2
spalte = 1
Dim c As Range
For Each c In Worksheets("force per meter").UsedRange
On Error GoTo errorhandler
If Len(c.Validation.ErrorMessage) > 0 Then
Sheets("settings2").Application.Cells(zeile, 1).Value = _
c.Address
Worksheets("settings2").Application.Cells(zeile, 2).Value = _
c.Validation.ErrorTitle
Sheets("settings2").Application.Cells(zeile, 3).Value = _
c.Validation.ErrorMessage
zeile = zeile + 1
End If
errorhandler:
Next
End Sub