Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellen mit Schutz abfragen und markieren

Zellen mit Schutz abfragen und markieren
10.03.2008 11:35:21
John
Hallo Zusammen,
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.

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen mit Schutz abfragen und markieren
10.03.2008 12:22:00
Rudi
Hallo,
so:

Sub tt()
Dim rngUnLocked As Range
Dim zelle As Range
For Each zelle In ActiveSheet.UsedRange
If zelle.Locked = False Then
If rngUnLocked Is Nothing Then
Set rngUnLocked = zelle
Else
Set rngUnLocked = Union(rngUnLocked, zelle)
End If
End If
Next zelle
rngUnLocked.Select
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Zellen mit Schutz abfragen und markieren
10.03.2008 12:45:40
John
Hallo Rudi,
tausend Dank für die Anpoassung des Codes. Habs jetzt in mein Add-In eingebaut und es funktioniert klasse.
Vielen Dank
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige