Laufzeitfehler bei VBA blinkender Zelle
25.06.2008 07:39:00
Markus
Ich habe folgendes Problem:
Ich habe per VBA folgenden Code eingebaut:
'gehört in ein allgemeines Modul
Public datTimer As Date
Public Sub prcTimer()
Dim rngZelle As Range
For Each rngZelle In Workbooks("W3_2008").Sheets("Gesamtübersicht").Range("j7:j35") ' _
Bereich, in dem es blinken soll
With rngZelle
If .Value > "0,3" Then
.Interior.ColorIndex = IIf(.Interior.ColorIndex = 37, 19, 37)
Else
.Interior.ColorIndex = 19
End If
End With
Next
datTimer = Time + TimeSerial(0, 0, 1) 'Wechselt alle 1 Sekunde
Application.OnTime datTimer, "prcTimer"
End Sub
Das bedeutet bei mir, dass im Blatt "W3_2008" alle Zellen blinken, der Wert dort größer als 0,3 ist.
Das funktioniert auch alles einwandfrei, nur bekomme ich einen Laufzeitfehler, sobald ich versuche dieses Blatt per Blattschutz zu schützen.
Ich nehme an, dass es daran liegt, dass der obige Code noch immer läuft und ich deswegen keine Sperre einbauen kann.
Habe es zwar schon versucht zu umgehen, aber dann habe ich zwar den Blattschutz jedoch blinken dann die Zellen nicht mehr, ich hätte aber gerne blinkende Zellen UND Blattschutz.
Hat da jemand ne Idee?