06.10.2016, 10:36
(Dieser Beitrag wurde zuletzt bearbeitet: 08.10.2016, 10:06 von schauan.
Bearbeitungsgrund: Bildfehler bei Bild2
)
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
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