0160-93 82 19 37 | Nehmen Sie 
Gesperrte Zellen markieren bzw. einfärben
101085
Mit dem folgenden Makro können sie alle gesperrten Zellen mit roter Hintergrundfarbe im selektierten Bereich kennzeichnen.
Public Sub gesperrte_Zellen_einfärben()
Dim addr As String
Dim zelle As Range
'Alle markierten Zellen überprüfen
For Each zelle In Selection
If zelle.Locked = False Then
addr = addr & zelle.Address & ","
End If
Next zelle
'Zellenhintergrund rot einfärben
Range(Left(addr, Len(addr) - 1)).Interior.ColorIndex = 3
End Sub
Möchten Sie die Zellen im benutzen Bereich (UsedRange) markieren, dann verwenden Sie das folgende Makro:
Public Sub gesperrte_Zellen_markieren()
Dim addr As String
Dim zelle As Range
'Alle markierten Zellen überprüfen
For Each zelle In ActiveSheet.UsedRange
If zelle.Locked = False Then
addr = addr & zelle.Address & ","
End If
Next zelle
'Zellenhintergrund rot einfärben
Range(Left(addr, Len(addr) - 1)).Activate
End Sub
