Code geschützte Zellen farbig

Computer: Software & Programmierung Office Software
1

Guten Morgen all ihr Frühaufsteher. Ich hatte man eine Code, der zeigte mir beim Start an, welche Zellen meines Tabellenblatts geschützt sind. Leider ist der weg, und ich finden den Code in den Forum nicht mehr. Falsche suchangabe wohl. Kann mir da mal jemand helfen?

2

Hallo Küchenjunge!

Ich hatte man eine Code, der zeigte mir beim Start an, welche Zellen meines Tabellenblatts geschützt sind. Leider ist der weg, und ich
finden den Code in den Forum nicht mehr. Falsche suchangabe
wohl. Kann mir da mal jemand helfen?

Ich hab in meinem schlauen Excel-Buch zwei Wege gefunden. Einen mit und einen ohne Makro.

  1. Variante (Bedingte Formatierung ohne Makro)

  2. Tabellenblatt markieren

  3. Format - Bedingte formatierung anwählen (Option Formel ist).

  4. Folgende Formel eingeben: =Zelle(„Schutz“;A1)=1. Hier musst du auf den Relativbezug achten!

  5. Format einstellen.

  6. Variante (mit Makro)

    Sub Zellschutz_kennzeichnen
    Dim Zelle As Range
    For Each Zelle In ActiveSheet.UsedRange
    If Zelle.Locked=True
    Zelle.Interior.ColorIndex = 3
    End If
    Next Zelle
    End Sub

Gruß Alex

3

Hallo Alex
Eine ganz kleine Korrektur im Makro:

 If Zelle.Locked=True THEN

Grüsse Niclaus

4

ne. Abend Alex und Niclaus.

Lieben dank für die Hilfe, werde es damit versuchen. Der Code sieht zwar anders aus als der alte Code.