AW: Zellschutz deakt., wenn bedingte Formatierung
08.07.2006 21:39:41
Harry
Hallo Peter,
ich hab mal deine Datei runtergeladen und sie mal kurz studiert.
Dabei ist mir aufgefallen, daß die hellgelben Zellen nicht bedingt, sondern
direkt formatiert sind.
Über VBA den Zellschutz dieser hellgelben Zellen zu deaktivieren, ist somit
eine ganz einfache Sache.
Hier mal 2 Beispiele:
Sub farbe_des_Zellinhaltes()
If ActiveCell.Interior.ColorIndex < 0 Then
MsgBox "Der Inhalt dieser Zelle hat keine Farbe." & Chr(10) & Chr(10) _
& "Farbindex: " & ActiveCell.Interior.ColorIndex, vbInformation, "Farbe(Zellinhalt) von " & ActiveCell.Address
ElseIf ActiveCell.Interior.ColorIndex = 36 Then
MsgBox "Der Inhalt dieser Zelle ist hellgelb." & Chr(10) & Chr(10) _
& "Farbindex: " & ActiveCell.Interior.ColorIndex, vbInformation, "Farbe(Zellinhalt) von " & ActiveCell.Address
Else
MsgBox "Der Inhalt dieser Zelle hat eine andere Farbe." & Chr(10) & Chr(10) _
& "Farbindex: " & ActiveCell.Interior.ColorIndex, vbInformation, "Farbe(Zellinhalt) von " & ActiveCell.Address
End If
End Sub
Sub Zellen_sperren()
If ActiveCell.Interior.ColorIndex = 36 Then
ActiveCell.Locked = False
Else
MsgBox "Der Inhalt dieser Zelle ist nicht hellgelb.", vbCritical, _
"Farbe(Zellinhalt) von " & ActiveCell.Address
End If
End Sub
Codes in das Modul "Zellschutz" kopieren, beliebige Zelle auswählen und laufen lassen...
Gruß
Harry