Gruß
Wolfgang
Gruß
Wolfgang
das geht nicht mit Formeln.
Schau in der Recherche unter "blinkende Zelle" nach, da wirst du fündig.
Gruß Boris
Borders.ColorIndex
anstatt
interior.colorindex
Gruß Boris
Lutz
im habe mal einen Code gemacht das Zelle A1 blinkt wenn sie 10 ist. Diesen Code brauchts Du nur nach der Anweisung von Boris umarbeiten. Obwohl ich auch sicher bin das es im Archiv ist.
' **************************************************************
' Modul: DieseArbeitsmappe Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
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
' **************************************************************
' Modul: Tabelle1 Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
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
' **************************************************************
' Modul: Modul1 Typ = Allgemeines 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
Code eingefügt mit: Excel Code Jeanie
Gruß Georg
Du kannst ihn nur einfärben über die Bedingte Formatierung.
Gruß Boris
Gruß
Wolfgang
nix für ungut. Bin nicht genervt, wollte nur deutlich machen, dass das so nicht funzt.
Die bedingte Formatierung ist eigentlich eine feine Sache.
Probier damit mal ein bischen herum. Für Hilfe poste einfach wieder oder schau in die Recherche. Da gibt es unzählige Einträge.
Gruß Boris