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
Anfrageformular öffnen 
Jetzt anrufen: +49 (0)151 164 55 914 
Anfrage per E-Mail senden 
Weitere Informationen 
