title image


Smiley Bedingte Formatierung in VBA auslesen
Hallo



Ich habe wieder mal ein kleines Problem

Ich habe in einer Tabelle "Datums" (furchtbares Wort, aber Daten ist so zweideutig) eingetragen. Die Zellen sind alle Gelb (Colorindex=36). Die Wochenden sind Bedingt Formatiert. Samstag = Grün, Sonntag = Rot. Ich möchte nun per VBA alle Zellen sperren die nicht gelb sind.



Sub locking()

addi = ActiveCell.Address

Sheets(1).Unprotect "Passwort"

Cells.Locked = True

Range("A1:AM40").Select

For Each c In Selection.Cells

If c.Interior.ColorIndex = 36 Then

c.Locked = False

End If

Next c

Sheets(1).Protect "Passwort"

Range(addi).Select

End Sub



Klappt auch wunderbar ausser bei den Sa und den So's Wie bringe ich VBA dazu die aktuelle Farbe auszulesen und nicht die, die die Zellen (wow 3 mal "die") eigentlich haben?

Hoffe es kann mir jemand helfen.

Danke!



Chris
Ich benutze Excel XP!! Danke allen Usern die dieses Forum beleben!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: