Re: Zelle blinken lassen
30.11.2002 17:24:09
Ralf
HalloIn VBA
in DieseArbeitsmappe
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Ende
End Sub
Private Sub Workbook_Open()
Farbe = ThisWorkbook.Worksheets("Tabelle1").Range("A1").Interior.ColorIndex
If ThisWorkbook.Worksheets("Tabelle1").Range("A1") = 10 Then ersteFarbe
End Sub
in ein Modul
Option Explicit
Public ET As Variant
Public Farbe As Integer
Sub ersteFarbe()
ThisWorkbook.Worksheets("Tabelle1").Range("A1").Interior.ColorIndex = 3
ET = Now + TimeValue("00:00:01")
Application.OnTime ET, "zweiteFarbe"
End Sub
Sub zweiteFarbe()
ThisWorkbook.Worksheets("Tabelle1").Range("A1").Interior.ColorIndex = 33
ET = Now + TimeValue("00:00:01")
Application.OnTime ET, "ersteFarbe"
End Sub
Sub Ende()
On Error Resume Next
Application.OnTime EarliestTime:=ET, Procedure:="ErsteFarbe", Schedule:=False
Application.OnTime EarliestTime:=ET, Procedure:="zweiteFarbe", Schedule:=False
ET = ""
ThisWorkbook.Worksheets("Tabelle1").Range("A1").Interior.ColorIndex = Farbe
End Sub
in die Tabelle
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = 10 Then
If ET = "" Then ersteFarbe
Else
Ende
End If
End Sub
mfg Ralf