Gültigkeitsprüfung / Validation
14.10.2003 14:40:47
Maximililan
Bin bereits am verzweifeln und braucht dringend eure Hilfe.
Im nachfolgenden Beispiel versuche ich einige Informationen aus dem Objekt Validation aus der einen Mappe in die andere Mappe zu kopieren.
Aber jedes mal wenn Excel auf eine Zelle ohne Gültigkeitsprüfung stösst, bricht es mit der Fehlermeldung Anwendungs oder objektorientierter Fehler ab.
Es muss doch eine Möglichkeit geben, vorab schon die Zelle auf Gültigkeit zu überprüfen.
Bitte helft mir.
Danke danke danke
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("Name").UsedRange
On Error GoTo errorhandler
If Len(c.Validation.ErrorMessage) > 0 Then
Sheets("Name2").Application.Cells(zeile, 1).Value = _
c.Address
Worksheets("Name2").Application.Cells(zeile, 2).Value = _
c.Validation.ErrorTitle
Sheets("Name2").Application.Cells(zeile, 3).Value = _
c.Validation.ErrorMessage
zeile = zeile + 1
End If
errorhandler:
Next
End Sub