Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


nicht gesperrte Zellen einfärben bei Blattschutz
#1
Hallo zusammen,

wie kann man mit einem Markro bei einer ganzen Arbeitsmappe nicht gesperrte Zellen farblich hervorheben. Die hervorhebung sollte man beim Drucken nicht sehen.

habe ein Bsp doch das funktioniert nicht so wie es soll, nähmlich gar nicht.....

Sub NichtGesperrteZellenMarkieren()
Dim zelle As Range
Dim s As String
Dim lArray() As String
Dim i As Integer
Dim e As Integer

i = 1
ReDim lArray(1 To 100)

For Each zelle In ActiveSheet.UsedRange
If zelle.Locked = False Then
lArray(i) = zelle.Address
i = i + 1
Else
End If
Next zelle

For e = 1 To i
s = s & lArray(e) & ","
Next e
s = Left(s, Len(s) - 2)
Range(s).Select
End Sub
to top
#2
Hallo,

suchst Du sowas?

Code:
Sub UngeschützteZellenHervorheben()
Dim Zelle As Range
  
With ActiveSheet
   .Cells.Interior.ColorIndex = xlColorIndexNone
    
    For Each Zelle In .UsedRange
        If Zelle.Locked = False Then
           Zelle.Interior.ColorIndex = 4
        End If
    Next Zelle
End With

End Sub
Gruß
Max
to top
#3
(12.01.2015, 21:05)Max schrieb: Hallo,

suchst Du sowas?

Code:
Sub UngeschützteZellenHervorheben()
Dim Zelle As Range
  
With ActiveSheet
   .Cells.Interior.ColorIndex = xlColorIndexNone
    
    For Each Zelle In .UsedRange
        If Zelle.Locked = False Then
           Zelle.Interior.ColorIndex = 4
        End If
    Next Zelle
End With

End Sub
Gruß
Max

Habe den Code in ein neues Modul kopiert funktioniert nicht.
oder muß der Code in ein Arbeitsblatt kopiert werden.

wäre super wenn ich einen code hätte der alle nicht gesperten Zelle der ganzen arbeitsmappe hellrosa einfärbt wenn der Blattschutz aktiviert wird.
to top
#4
Hi,

im Modul sollte er eigentlich laufen.
Er prüft aber nur im gerade aktiven Blatt.
Oder sind da keine ungeschützten Zellen drin?

Ich schaue morgen mal ob ich was auf die Kette kriege.

Gruß
Max
[-] Folgende(r) 1 Benutzer sagt Danke an Max für diesen Beitrag:
wavemaster
to top
#5
(12.01.2015, 21:56)Max schrieb: Hi,

im Modul sollte er eigentlich laufen.
Er prüft aber nur im gerade aktiven Blatt.
Oder sind da keine ungeschützten Zellen drin?

Ich schaue morgen mal ob ich was auf die Kette kriege.

Gruß
Max

Wie sieht die Farbe aus wenn das Blatt geschützt wird.
to top
#6
Quietschgrün wenn die jeweilige Zelle nicht geschützt ist.

Ist das kpl. Blatt geschützt?
Das ist dann glaube ich das Problem.
[-] Folgende(r) 1 Benutzer sagt Danke an Max für diesen Beitrag:
wavemaster
to top
#7
(12.01.2015, 22:14)Max schrieb: Quietschgrün wenn die jeweilige Zelle nicht geschützt ist.

Ist das kpl. Blatt geschützt?
Das ist dann glaube ich das Problem.

Habe auf dem Tabellenblatt 1 ca 50 Zellen die nicht geschützt sind der Rest ist geschützt. Wenn Ich den Blattschutz einschalte erscheint keine Farbe.

habe die datei nochmals angehängt


Angehängte Dateien
.xls   Entscheidungsliste Lettenwald.xls (Größe: 647,5 KB / Downloads: 4)
to top
#8
Hi,

Code:
Sub UngeschützteZellenHervorheben()
Dim Zelle As Range
  ActiveSheet.Protect userinterfaceonly:=True
With ActiveSheet
   .Cells.Interior.ColorIndex = xlColorIndexNone
    
    For Each Zelle In .UsedRange
        If Zelle.Locked = False Then
           Zelle.Interior.ColorIndex = 4
        End If
    Next Zelle
End With

End Sub
lg Chris
Feedback nicht vergessen.
3a2920576572206973742064656e20646120736f206e65756769657269672e
 ?mage

[-] Folgende(r) 1 Benutzer sagt Danke an chris-ka für diesen Beitrag:
wavemaster
to top
#9
(13.01.2015, 08:24)chris-ka schrieb: Hi,

Code:
Sub UngeschützteZellenHervorheben()
Dim Zelle As Range
  ActiveSheet.Protect userinterfaceonly:=True
With ActiveSheet
   .Cells.Interior.ColorIndex = xlColorIndexNone
    
    For Each Zelle In .UsedRange
        If Zelle.Locked = False Then
           Zelle.Interior.ColorIndex = 4
        End If
    Next Zelle
End With

End Sub

Funktioniert auch nicht.
Habe gestern die datei angehängt zum testen.
to top
#10
Hi,

funktioniert nicht....
Was soll den nicht funktionieren?


Angehängte Dateien
.xls   Entscheidungsliste Lettenwald-1.xls (Größe: 832,5 KB / Downloads: 5)
lg Chris
Feedback nicht vergessen.
3a2920576572206973742064656e20646120736f206e65756769657269672e
 ?mage

[-] Folgende(r) 1 Benutzer sagt Danke an chris-ka für diesen Beitrag:
wavemaster
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Jahreskalender, Datum eintragen => automatisches einfärben in Kalender Fuxalex 4 90 03.12.2016, 23:42
Letzter Beitrag: schauan
  Gesperrte Dateien schreibgeschützt öffnen Marco 1 30 03.12.2016, 11:10
Letzter Beitrag: Kuwer
  [VBA] Einfärben von Textboxen über Schleife Rabe 4 78 25.11.2016, 22:04
Letzter Beitrag: schauan
  Formel funktioniert nicht in allen Zellen Lini Morini 10 113 25.11.2016, 15:14
Letzter Beitrag: Jockel
  Blattschutz schützen (ohne PW) Hobbes95 3 72 18.11.2016, 15:50
Letzter Beitrag: RPP63
  Zelle einfärben+Text nicht sichtbar LindaB 3 88 10.11.2016, 13:12
Letzter Beitrag: Jockel
  Reiter einfärben wenn lion7123 18 387 04.11.2016, 08:11
Letzter Beitrag: lion7123
  Bedingtes Einfärben ganzer Zeilen ExcelNoob2413 9 153 27.10.2016, 10:19
Letzter Beitrag: steve1da
  Blattschutz aufheben bei bestimmten User FaDos 3 137 20.10.2016, 22:15
Letzter Beitrag: AlterDresdner
  Blattschutz ulle 1 95 11.10.2016, 10:34
Letzter Beitrag: Gast 123

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste