Clever-Excel-Forum

Hallo zusammen,

erst mal vielen Dank für die Aufnahme. Ich habe hier schon alles durchsucht, aber leider nichts passendes gefunden:

Folgendes 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


Neu Flugplan für Lithium IOIN and Metal Batteries, hier benötige ich eure Hilfe

wenn ein Feld mit NO belegt ist, muss das 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 dir 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

[
Bild bitte so als Datei hochladen: Klick mich!
]

Ferner soll auch in allen Feldern in denen NO steht, die Felder rot blinken.  

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.

Vielen Dank

Gruß Martin

Hallöchen,

das Worksheet_Change reagiert auf Eingaben. Wenn Du auf Berechnungen reagieren willst, müsstest Du Workshhet_Calculate nehmen.
Alternativ wäre es vielleicht besser, wenn Du das Worksheet_Change auf die Zellen richtest, die zur Berechnung der Formel führen.

Ich habe übrigens mal Dein zweites "Bild" raus genommen, da stand nur irgendwelcher Text ...