Bedingte Formatierung mit Blinkfunktion
#1
=$E$51=""

Hallo Forum

Habe die obige Formel dazu benutzt, Felder einzublenden, wenn E51 mit einem X versehen werden.

Damit nun ich nun in meinem Feld U51 eine wichtige Abfrage stelle, sollte dieses Feld irgendwie auf sich aufmerksam machen, ich habe dabei an ein Blinken gedacht.

Geht das überhaupt oder hat mir da jemand eine andere Idee?

LG
cuba
Top
#2
Hi

Hier noch eine Beispieldatei...

LG
cuba


Angehängte Dateien
.xlsx   Cuba Blinktest.xlsx (Größe: 10,34 KB / Downloads: 26)
Top
#3
Hi cuba,

mir hat Tante Gugle gerade tief geknickt verraten, dass sie sich immer mehr übergangen fühlt. :32:   Eine gute Seele, wie ich nun manchmal sein kann, habe ich ihr einfach mal

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

gesagt.

Und jetzt ist sie happy: https://www.google.de/search?q=blinkende+zellen&ie=utf-8&oe=utf-8&gws_rd=cr&ei=FYftVqiMB-uF6ATNxqv4CQ
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Top
#4
Hallo Günter

Vielen Dank für Deinen humorvollen Beitrag.

Da die Beispieldateien nicht mehr heruntergeladen werden können, habe ich mich entschlossen, mich bei Clever-Excel cleverer zu machen.

Sehe auch, dass da eine VBA-Lösung angeboten wird. Da ich mit VBA nicht sonderlich bewandt bin, werde ich das mal testen, es sei denn, es hat mir tatsächlich jemand einen super Lösungsansatz.

PS: Google gehört zu meinem Standard.... Smile

LG
cuba
Top
#5
Hallo,

das ist eine Möglichkeit:


Code:
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim i As Long
   If Target.Address(0, 0) = "E51" Then
     If UCase(Target.Text) = "X" Then
       For i = 1 To 200
         Cells(51, 21).Interior.ColorIndex = 3
         DoEvents
         Cells(51, 21).Interior.ColorIndex = xlNone
       Next i
     End If
   End If
End Sub
Gruß Atilla
Top
#6
Hallo,


habe Atillas Code noch etwas ergänzt/verändert, falls es langsamer blinken soll!

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
   If Target.Address(0, 0) = "E51" Then
     If UCase(Target.Text) = "X" Then
       For i = 1 To 5
         Cells(51, 21).Interior.ColorIndex = 3
         Application.Wait Now + TimeSerial(0, 0, 1) ' = wartet 2 Sekunden
         DoEvents
         Cells(51, 21).Interior.ColorIndex = xlNone
         Application.Wait Now + TimeSerial(0, 0, 1) ' = wartet 2 Sekunden
       Next i
     End If
   End If
End Sub


VG
Alexandra
Top
#7
Hi!
Ich habe hier mal eine sehr ungewöhnliche Variante mit bedingter Formatierung und einem Namen.
Vorab: Sie ist nicht von mir, sondern ich glaube von xlph (Autor: Boss).

Der Name "Blinken" dient dabei quasi als globale Variable:
Name: Blinken, Bezieht sich auf: =0

Die bedingten Formatierungen sind:
Formel1: =UND(E4>$G$2;Blinken=1) Farbe: rot
Formel2: =UND(E4>$G$2;Blinken=2) Farbe: orange
jeweils für den Bereich: =$E$4:$H$17

Der gesamte Code der Mappe in Modul mdlBlinken:

Modul mdlBlinken
Option Explicit 

Private mdatStartTime As Date
Private Const mconIntervall As Long = 1 ' in sec.

Public Sub BlinkerStarten()
   mdatStartTime = Now + TimeSerial(0, 0, mconIntervall)
   Application.OnTime mdatStartTime, "BlinkerStarten"
   With ThisWorkbook.Names("Blinken")
       Select Case Val(Mid$(.RefersTo, 2))
           Case Is <= 1: .RefersTo = 2
           Case Else: .RefersTo = 1
       End Select
   End With
End Sub

Public Sub BlinkerStoppen()
   On Error Resume Next
   Application.OnTime mdatStartTime, "BlinkerStarten", , False
   On Error GoTo 0
   ThisWorkbook.Names("Blinken").RefersTo = 0
End Sub

Public Sub ZufallsZahlenSetzen()
   With Tabelle1.Range("E4:H17")
       .Formula = "=RANDBETWEEN(1,50)"
       .Value = .Value
   End With
End Sub

Datei im Anhang, viel Spaß damit.

Gruß Ralf


Angehängte Dateien
.xlsm   Blinker BereichsNamen Bed. Formatierung OnTime.xlsm (Größe: 19,07 KB / Downloads: 29)
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste