Zellen mit Schutz abfragen und markieren
10.03.2008 11:35:21
John
ich möchte in einem Blatt alle Zellen überprüfen, die bei Sperrung des Blattes nicht gesperrt sind. Das an sich ist kein Problem:
Private Sub CommandButton1_Click()
Dim zelle As Range
UsedRange.Select
For Each zelle In Selection
If zelle.Locked = False Then
zelle.Activate
Jetzt möchte ich es aber gerne so angezeigt haben, dass alle Zellen, die nicht "locked" sind, eben dann gleichzeitig aktiviert sind. Damit kann ich dann schnell sehen, welche auch gesperrt sein werden und welche nicht.
Wie kann ich meinen Code anpassen, dass alle Zellen, auf die locked nicht zutrifft, gleichzeitig aktiviert dargestellt werden?
Schonmal vielen Dank vorab für Eure Hilfe.