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
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
(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.
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
(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.
Quietschgrün wenn die jeweilige Zelle nicht geschützt ist.
Ist das kpl. Blatt geschützt?
Das ist dann glaube ich das Problem.
(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
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
(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.
Hi,
funktioniert nicht....
Was soll den nicht funktionieren?