Brauchen Sie Hilfe?
Web:     Online-Formular
E-Mail:  
Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Tel:       +49(0)151 / 164 55 914

Nutzen Sie für Ihre Anfrage unser Online-Formular oder senden Sie uns eine E-Mail an Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!. Gerne können Sie aber auch direkt telefonisch Kontakt aufnehmen.

   
     Referenzen
 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   

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

   

Relevante Artikel

  • Cells- zur Range-Schreibweise umwandeln

    101005   Mit dieser Funktion können Sie die die Cells-Schreibweise, z. B. Cells(1, 2) in die Range-Schreibweise z. B. Range("B1") umwandeln.   Sub umwandeln() Adresse = Cells2Range(1, 1) MsgBox Adresse End...

  • Leere Zeilen aus einer Tabelle entfernen

    Mit Hilfe des VBA-Codes aus diesem Beispiel können Leerzeilen aus einem Tabellenblatt entfernt werden. Werden Daten importiert oder über die Zwischenablage auf einem Tabellenblatt eingefügt, so...

  • Änderungen von Zellen dokumentieren

    101002 Einfügen in Tabellenblatt (nicht Code-Modul)   Mit diesem Code können Änderungen live in einer Spalte dokumentiert werden. Der Änderungshinweis wird in einer definierten Spalte ausgegeben.   Wenn Sie...

  • Liniertes Computerpapier erzeugen

    101082 Mit dem nachfolgenden Code ist es möglich, jede zweite Zeile im markierten Bereich farbig zu hinterlegen. Es wird eine Art liniertes Computerpapier erzeugt werden, wie es in den Anfängen des...

  • Daten sofort bei Eingabe sortieren

    101080 Das nachfolgende Makro sortiert alle in einem Tabellenblatt eingegebenen Werte automatisch nach den Werten der Spalte A aufsteigend. Dabei werden die Zellen A1 bis A100 berücksichtigt. Die...

   

Excel-Inside auf Facebook Excel-Live News blog Excel-Inside RSS-Feed Twitter Account für Excel-Inside Mail an Excel-Inside 

Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
Unsere Produkte
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013