Supportnet / Forum / Tabellenkalkulation
Blinkende Zelle bei Excel ??
Frage
Hallo
kann ich eigendlich in einer Excel Tabelle eine Zelle ständig farbig blinken lassen ?? Wenn ja wie ??
Danke für die Antwort.
Antwort 1 von coros
Ja, das geht,
Code in Diese Arbeitsmappe einfügen:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Ende
End Sub
Private Sub Workbook_Open()
If ThisWorkbook.Worksheets("Tabelle1").Range("A1") = 10 Then ersteFarbe
End Sub
Code in ein Modul einfügen:
Option Explicit
Public ET As Variant
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 = ""
End Sub
Ich hoffe, ich konnte Dir weiterhelfen,
coros
Und nicht vergessen, hier noch einmal zu posten, ob Dich die Hilfe weitergebracht oder sogar Dein Problem gelöst hat.
Code in Diese Arbeitsmappe einfügen:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Ende
End Sub
Private Sub Workbook_Open()
If ThisWorkbook.Worksheets("Tabelle1").Range("A1") = 10 Then ersteFarbe
End Sub
Code in ein Modul einfügen:
Option Explicit
Public ET As Variant
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 = ""
End Sub
Ich hoffe, ich konnte Dir weiterhelfen,
coros
Und nicht vergessen, hier noch einmal zu posten, ob Dich die Hilfe weitergebracht oder sogar Dein Problem gelöst hat.
Antwort 2 von bemey
Hallo
alles klar...vielen Dank. War genau der richtige Tip !!!!
alles klar...vielen Dank. War genau der richtige Tip !!!!