Office: Eine Zelle blinken lassen

Wünsche einen schönen Sonntag in die Runde. Ich habe einen VBA Code, um eine Zelle blinken zu lassen. Nun kann ich das Blinken nur im VBA Code starten. Ich hatte mir vorgestellt, dass wenn ich das Tabellenblatt öffne, die Blinkfunktion aktiviert wird, und beim Schließen der Tabelle die Blinkfunktion deaktiviert wird. Mit meinem bisherigen Code funktioniert das aber nicht. Hat jemand eine Idee wie ich den Code verändern muss, um die gewünschte Funktion zu erhalten?

PHP:

Dim NextFlash As Double
Dim BlinkState As Boolean
Const BlinkIntervalSeconds As Double = 0.8  ' Intervall in Sekunden
Const BlinkRange As String = "A1"          ' Zelle, die blinken soll
Public Sub StartBlink()
'''Private Sub Worksheet_Activate()
    BlinkState = Not BlinkState
    If BlinkState Then
        Range(BlinkRange).Interior.Color = RGB(255, 0, 0) ' Rot
    Else
        Range(BlinkRange).Interior.ColorIndex = xlNone    ' Keine Farbe
    End If
    ' Umrechnung: 1 Tag = 24*60*60 = 86400 Sekunden
    NextFlash = Now + BlinkIntervalSeconds / 86400
    Application.OnTime NextFlash, "StartBlink"
End Sub
Public Sub StopBlink()
'''Private Sub Worksheet_Deactivate()
    On Error Resume Next
    Application.OnTime NextFlash, "StartBlink", True   '  False
    Range(BlinkRange).Interior.ColorIndex = xlNone
End Sub



 

Moin!
Dann musst Du den Aufruf halt ins Workbook_Open oder ins Workbook_Activate setzen oder deren Worksheet-Entsprechungen:
Call StartBlink

By the way:
Dass Du die Mappe damit gehörig ausbremst, sollte Dir bewusst sein.
Übrigens ist heute nicht Sonntag …

Gruß Ralf

 

schaue hier
VBA blinken Open-Ereignis

 

Ich habe da etwas mit einem völlig anderen Ansatz.
(meine Mahnung von oben gilt natürlich immer noch)

	E	F	G	H
2	Blinken ab dem Wert:		30
3
4	14	31	27	35
5	29	49	23	39
6	33	12	43	24
7	15	12	42	6
8	21	25	12	6
9	30	14	39	50
10	7	23	43	17
11	37	38	37	30
12	49	18	8	50
13	20	41	30	28
14	30	9	3	42
15	47	46	16	1
16	34	15	18	40
17	34	18	50	12

Name	Bezug
Blinken	=0

Die Farbe der hier gezeigten Zellen ist irrelevant (und braucht auch nicht per Code "gemerkt" werden).

Der für das Blinken zuständige Code ist hübsch kompakt:

Code:

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

Viel Spaß beim Verstehen der Systematik der Datei.

Ihr dürft sogar während das Blinken läuft die Schaltfläche "Zufallszahlen" drücken. :)

Gruß Ralf

 

Moin,

ich möchte hier in keinster Weise den Antwortsdrang der User mindern oder gar die Fragen vom Motor-Bastler zensieren, aber nachdem es mir nun zum wiederholten Male auffällt:

Warum um alles in der Welt willst du Excel immer wieder Kunststücke beibringen, die so nicht vorgesehen sind?
Mit der Bedingten Formatierung gibt es doch nun wirklich seit vielen Jahren Möglichkeiten, ausreichend auffällige und unterschiedliche Warnungen zu kreieren; auch für ungeübte User.
Fragst du auch bei Mercedes nach, ob die Tankanzeige blau blinkend statt grün leuchtend sein könnte? Und würdest du den vermutlichen Preis für den Umbau zahlen?

Immer wieder weisen dich User bei deinen Wünschen darauf hin, dass es auch andere (integrierte) Möglichkeiten gibt, aber du bestehst immer wieder beharrlich auf deiner Idee, allen Widersprüchen zum Trotz.

Ich möchte es wirklich bloß VERSTEHEN!