Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1720to1724
1720to1724
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hervorhebung von gesperrten Zellen

Forumthread: Hervorhebung von gesperrten Zellen

Hervorhebung von gesperrten Zellen
12.11.2019 13:57:47
gesperrten
Hallo miteinander,
momentan habe überarbeite ich mehrere umfangreiche Arbeitsblätter. In diesen müssen bestimmte Zellen als "gesperrt" formatiert sein, da diese Formeln oder Vorgabewerte enthalten.
Mein Problem ist nun, dass ich diesen Status nunmehr händisch Zelle für Zelle überprüfen muss. Meine Frage an Euch wäre, ob es eine Möglichkeit gibt, Zellen nach ihren Eigenschaften, gesperrt bzw. nicht gesperrt, hervor zu heben.
Danke im voraus
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hervorhebung von gesperrten Zellen
12.11.2019 14:05:31
gesperrten
mit VBA schon.
Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)
Das ist nur meine Meinung zu dem Thema.

Anzeige
AW: Hervorhebung von gesperrten Zellen
12.11.2019 14:14:09
gesperrten
Hallo,
z. B. so: 

Sub VerbundeneZellen_farblich_markieren()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If Zelle.MergeCells Then Zelle.Interior.ColorIndex = 4 'Farbe anpassen!
Next Zelle
End Sub

AW: Hervorhebung von gesperrten Zellen
12.11.2019 14:20:58
gesperrten
Hallo,
so: 
Option Explicit
Public Sub aaa()
Dim raBereich As Range, raZelle As Range
Application.ScreenUpdating = False
'Blattname anpassen
With Worksheets("Tabelle1")
'Bereich anpassen
Set raBereich = .Range("A1:G30")
For Each raZelle In raBereich
raZelle.Interior.ColorIndex = IIf(raZelle.Locked, 15, xlNone)
Next raZelle
End With
Set raBereich = Nothing
End Sub
Gruß Werner
Anzeige
AW: Hervorhebung von gesperrten Zellen
12.11.2019 14:25:43
gesperrten
Hallo,
danke für die raschen Antworten. Mit dem Code von Pierre als Basis hats geklappt. 
Sub Mark_protected_cells()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Locked Then Zelle.Interior.Pattern = 8 'Muster festlegen
Next Zelle
End Sub

...hätte ich eigentlich selbst drauf kommen müssen...
Nicolaus
Anzeige
AW: Hervorhebung von gesperrten Zellen
12.11.2019 14:28:08
gesperrten
Hallo Nicolaus,
Das kannst du auch händisch sehr schnell erledigen:
1. Ctrl-G Optionen - Formeln
2. Die markierten Zellen entsprechend deinen Wünschen formatieren.
Gruess Hansueli

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige