um in größeren Arbeitsblättern während der Arbeit/ Entwicklung nicht den Überblick zu verlieren, möchte ich gern alle Zellen markieren, die über eine Gültigkeit vom Typ: Liste verfügen. Ich weiß, daß es über Gehe Zu die Funktion gibt, alle Zellen mit Gültigkeitsprüfung zu wählen, aber es werden auch die Zellen berücksichtigt, die nur über eine Eingabemeldung verfügen.
Ich möchte aber explizit die Zellen ausfindig machen, für deren Gültigkeit eine Liste verwandt wird. Validation.Type = 3
Nachfolgender Code gibt immer eine Fehlermeldung in einer Zelle ohne Gültigkeit. Also setzte ich ein On Error GoTo ein, um den Fehler zu überspringen und mit der nächsten Zelle fortzufahren.
Aber es funktioniert nicht.
Sub GueltigkeistListeHervorheben()
Dim Cell As Range
On Error GoTo NextCell
For Each Cell In Selection
If Cell.Validation.Type = 3 Then
With Cell.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 3
End With
End If
NextCell:
Next Cell
On Error GoTo 0
End Sub
Hat jemand von Euch eine zündende Idee, wie ich dieses Problem lösen kann und nur die Zellen mit Type 3 Validation (Liste) markiert werden?
Vielen Dank und Grüße, Andreas Hanisch