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
13.01.2015, 08:24 (Dieser Beitrag wurde zuletzt bearbeitet: 13.01.2015, 08:24 von chris-ka.)
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
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.