Office 2007: VBA blinkende Zellen

[Icke]

Hallo zusammen,

erst mal vielen Dank für die Aufnahme. Ich habe hier schon alles durchsucht, aber leider nichts passendes gefunden, ich hoffe ich kann euch Profis sofort mit meinen Problemen "belästigen"
 
nacholgendes Problem:

ich schreibe zur Zeit (oder versuche es zumindestens) eine komplexe Datenbank (in Excel) mit Abfragen wie:

Zollvorschriften
Informationen und Empfehlungen für Drittländer
IATA - DGR approved Countrys
Airlinerestriction,Flugplan für Lithium IOIN and Metal Batteries, hier benötige ich eure Hilfe

wenn ein Feld mit NO belegt ist, müssen die Feld rot blinken, Problem in diesen Feld steht zwar ein NO, dieses ist aber eigentlich eine Formel, wenn ich in diesen Feld ein NO schreibe blinkt das Feld, steht aber die Formel als NO im Feld passiert leider nichts...

in diesen Feldern soll es bei NO blinken

bei Lithium (Global Expres) sind das nachfolgende Felder

ION Batteries C63;H63;M63
METAL Batteries U63;Z63;AE63

bei Lithium (Economy Express sind das nachfolgende Felder:

ION Batteries  C99;K99,M99
METAL Batteries U99;Z99;AE99

Als Beispiel Formel für das Feld C63 =INDEX(Bagging!BD:BD;VERGLEICH(B2;Bagging!C:C;0)), hier hinter steht dann ein NO

Ferner soll auch in allen Feldern in denen NO steht, die Felder rot blinken. Anbei Auszug Tabelle siehe bitte Anhang anbei.
 
Bis Dato habe ich folgende VBA gefunden, also wenn ich hier ein NO "reinschreibe" blinkt das Feld, sobald aber die Formel im Feld steht, passiert nichts. Das steht im Tabellenblatt

Option Explicit

Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
    i = 0
    If Not Intersect(Target, Range("C99")) Is Nothing Then
        If Target.Cells = "ok" Then
           
            Farbnorm = Range("C99").Interior.ColorIndex
            Schalter = True
            Call Zeitmakro
        Else
            Schalter = False
        End If
    End If
End Sub

Das steht im Modul 1
Option Explicit

'Variablendeklaration
Public Zeit As Variant
Public blink As Variant
Public i As Variant
Public Farbnorm As Integer
Public Schalter As Boolean

Sub Zeitmakro()
   
    blink = 99
    Zeit = Now + TimeValue("00:00:01")
    i = i + 1
    If i - Int(i / 2) - Int(i / 2) = 0 Then
        'Farbe
        Range("C99").Interior.ColorIndex = 3
    Else
        'Farbe
        Range("C99").Interior.ColorIndex = xlNone
    End If
    If i < blink And Schalter Then
       
        Application.OnTime Zeit, "Zeitmakro"
    Else
       
        Range("C99").Interior.ColorIndex = Farbnorm
    End If
End Sub

Würde mich freuen wenn ihr Profis mich hier unterstützen könnt und mir ein paar Tips geben könnt.

Vielen Dank

Gruß Icke

[maninweb]

Hallo,

ungetestet und auch nicht möglich, zu testen, da zurzeit kein Rechner vorhanden; ersetze mal Target.Cells durch Target.Value, was den Zellwert anspricht.

Nebenbei, das Option Compare Text brauchste nicht.

Und, generell, blinkende Zellen gehen auf die Performance und sin auch ergonomisch gesehen nicht zu empfehlen. Ich würde hier eher bedingte Formatierungen empfehlen.

Gruß