Projektanfrage

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unter-stützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! oder rufen Sie uns einfach an.

   
      Referenzen 

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  Nutzen Sie unser Auftragsformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
r
o
j
e
k
t
a
n
f
r
a
g
e
   

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

  • Zellen mit Formeln, Zahlen oder Text farbig markieren

    101074 Der VBA-Code in Variante 1markiert alle Zellen im benutzten Bereich farbig, die eine Formeln enthalten. Die Variante 2 prüft den Zelleninhalt auf Zahlen und die Variante 3 markiert alle...

  • Zahlen aus Text extrahieren

      Aufgabenstellung: In einer Liste (Zellbereich A1:A10) sind Texte mit Ziffernenthalten, siehe folgende Abbildung. A 1 Der Preis Beträgt 25 Euro für diesen Artikel. 2 Der Preis Beträgt 55 Euro für diesen...

  • Ä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...

  • Trennen von Zellinhalten - Text in Spalten

    Dieses Beispiel zeigt, wie Zellinhalte die sich fortlaufend in einer Zelle befinden getrennt werden können. Voraussetzung ist, dass die einzelnen Elemente durch ein beliebiges Trennzeichen separiert wurden,...

  • 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...