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

   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800