Blinken trotz Blattschutz
01.09.2008 12:58:49
Daniela
ich habe folgendes Problem: In meiner Tabelle gibt es zum einen geschützte und freigegebene Breiche ( damit nicht alles geändert werden kann) und zum anderen sollen bestimmte Zellen blinken. Beides funktioniert getrennt wunderbar...aber zusammen eben nicht! Stets ist entweder das ganze Blatt geschützt oder nichts.
Das Blinken habe ich folgendermaßen realisiert:
Sub ersteFarbe()
ThisWorkbook.Sheets(Sheets.Count).Range("E14:J14").Interior.ColorIndex = 6
For Each RaZelle In ThisWorkbook.Sheets(Sheets.Count).Range("E14:J14")
If RaZelle.Value "" Then
Set RaFind = ThisWorkbook.Sheets(Sheets.Count).Range("E179:M179").Find(What:= _
RaZelle.Value, _
LookAt:=xlWhole)
If Not RaFind Is Nothing Then RaZelle.Interior.ColorIndex = InFarbe1
End If
Next RaZelle
DaEt = Now + DaZeit ' neue Startzeit setzen
Application.OnTime DaEt, "zweiteFarbe" ' Prozedur zur Startzeit starten
End Sub
Sub zweiteFarbe()
Sub Ende()
On Error Resume Next
Application.OnTime EarliestTime:=DaEt, Procedure:="ErsteFarbe", Schedule:=False
Application.OnTime EarliestTime:=DaEt, Procedure:="zweiteFarbe", Schedule:=False
DaEt = 0
ThisWorkbook.Worksheets(Sheets.Count).Range("A15").Interior.ColorIndex = 0
End Sub
Danke für eure Hilfe!