Thema Datum  Von Nutzer Rating
Antwort
13.12.2017 21:55:50 Wolfgang3
NotSolved
14.12.2017 00:18:11 Gast24419
NotSolved
14.12.2017 00:40:24 Gast49886
NotSolved
14.12.2017 13:13:28 Wolfgang3
NotSolved
Rot Zelle blinken lassen
19.12.2017 00:21:06 Gast69967
NotSolved
19.12.2017 00:34:16 Gast73963
NotSolved

Ansicht des Beitrags:
Von:
Gast69967
Datum:
19.12.2017 00:21:06
Views:
721
Rating: Antwort:
  Ja
Thema:
Zelle blinken lassen

Hallo,

dann mal noch vor X-mas, ist von der CPU her doch etwas harmloser als gedacht, damits automat. läuft, benötigst Du dazu noch eine EreignisProc in Deinem Tabellenblattmodul:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
' **************************************************************
'  Modul:  Tabelle1  Typ: Klassenmodul des Tabellenblattes
' **************************************************************
 
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Address = "$D$4" Then _
       If .Value > 40 Then _
         Call Blinker(probjRange:=.Offset(1, 0)) _
       Else: Call Stop_Blinker
End With
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
' **************************************************************
'  Modul:  Modul1  Typ: Standardmodul
' **************************************************************
 
Option Explicit
 
Private lblnRun As Boolean
 
Public Sub Blinker(ByRef probjRange As Range) '// © by Phelan....//
    Dim sng_t As Single
    Dim sngOn_Time As Single
    Dim sngOff_Time As Single
    Dim lngOn_Color As Long
    Dim lngOff_Color As Long
    Dim objBereich As Range
    
    sngOn_Time = 0.5
    
    sngOff_Time = 0.5
    lngOff_Color = xlColorIndexNone
    
    lblnRun = Not lblnRun
    
    Set objBereich = probjRange
     
    With objBereich.Interior
        lngOn_Color = .Color
        Do While lblnRun
            .Color = lngOn_Color
            sng_t = Timer: Do While Timer < sng_t + sngOn_Time: DoEvents: Loop
            .ColorIndex = lngOff_Color
            sng_t = Timer: Do While Timer < sng_t + sngOff_Time: DoEvents: Loop
        Loop
        .Color = lngOn_Color
    End With
    Set objBereich = Nothing
End Sub
 
Public Sub Stop_Blinker()
  lblnRun = False
End Sub

Gruß,


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
13.12.2017 21:55:50 Wolfgang3
NotSolved
14.12.2017 00:18:11 Gast24419
NotSolved
14.12.2017 00:40:24 Gast49886
NotSolved
14.12.2017 13:13:28 Wolfgang3
NotSolved
Rot Zelle blinken lassen
19.12.2017 00:21:06 Gast69967
NotSolved
19.12.2017 00:34:16 Gast73963
NotSolved