VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Countdown [hh:mm:ss] mit blinken	23.10.2014 14:51:03	Tim
1. Quick and dirty	01.11.2014 16:08:07	Markus_K
2. mit 2 Timer	01.11.2014 16:16:47	Gast50903
2. mit 2 Timer	03.11.2014 12:50:37	Gast28047
2. mit 2 Timer	03.11.2014 22:33:54	Markus_K
2. mit 2 Timer	04.11.2014 09:44:31	Gast80880
2. mit 2 Timer	05.11.2014 13:16:47	Gast58829
2. mit 2 Timer	06.11.2014 23:22:09	Markus_K
2. mit 2 Timer	09.11.2014 23:33:44	Gast60594
2. mit 2 Timer	10.11.2014 10:26:50	Gast27744
2. mit 2 Timer	11.11.2014 19:45:28	MarkusK
2. mit 2 Timer	20.11.2014 16:35:38	Gast71907
2. mit 2 Timer	20.11.2014 18:02:37	MarkusK
2. mit 2 Timer	27.11.2014 08:01:14	Gast52057
2. mit 2 Timer	27.11.2014 22:13:25	MarkusK
2. mit 2 Timer	11.12.2014 08:08:48	Gast44126
2. mit 2 Timer	11.12.2014 11:03:56	Gast80638
2. mit 2 Timer	11.12.2014 11:50:56	Gast8772
2. mit 2 Timer	11.12.2014 15:47:49	Gast27017
2. mit 2 Timer	12.12.2014 09:22:52	MarkusK
Countdown [hh:mm:ss] mit blinken	24.11.2014 05:59:10	Gast54953

Ansicht des Beitrags:

Von:
Markus_K

Datum:
01.11.2014 16:08:07

Views:
1148

Rating:

Antwort:

Thema:
1. Quick and dirty

Hallo Tim

Für mich gibt es 2 Möglichkeiten (die 2. in der 2. Antwort)

Das ist die nicht ganz so elegante Lösung, da einfach ein Timer gestartet wird, der alle Sekunde aufgrufen wird.

Das heißt jede Sekunde wird der Code durchlaufen und entsprechend die Zelle gefärbt.

(der Code ist auch nicht 100% sauber, sollte aber so laufen)

Voraussetzung:

Es muss eine Checkbox (Name CheckBox1) auf dem 1. Blatt vorhanden sein.

Derzeit wird die Zelle B4 abgefragt, kann man aber im "Start" Makro ändern

In VBA unter "DieseArbeismappe" folgenden Code einfügen

Private Sub Workbook_Open()
Start
End Sub

Im Code-Fenster vom 1. Blatt dann diesen Code

Option Explicit
 
Private Sub CheckBox1_Click()
If CheckBox1.Value = 0 Then
    Alarm.Interior.Pattern = xlNone
Else
    Start
End If
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Start
If Not Intersect(Target, Alarm) Is Nothing Then
    Me.CheckBox1.Value = 1
End If
End Sub

Und in einem Modul dann

Option Explicit
Public WarnFarbe As Long
Public AlarmFarbe As Long
Public Alarm As Range
Public Sub Timer()
'Stop
 
If Sheets(1).CheckBox1.Value Then
    If DateDiff("h", Time, Alarm) < 1 And DateDiff("s", Time, Alarm) > 0 Then
        Alarm.Interior.Color = WarnFarbe
    ElseIf DateDiff("s", Time, Alarm) < 0 Then
        If Alarm.Interior.Color = AlarmFarbe Then
            Alarm.Interior.Pattern = xlNone
        Else
            Alarm.Interior.Color = AlarmFarbe
        End If
    Else
        Alarm.Interior.Pattern = xlNone
     
    End If
    Application.OnTime Now + TimeSerial(0, 0, 1), "Timer"
Else
'    Stop
End If
End Sub
 
 
Public Sub Start()
WarnFarbe = RGB(256, 256, 0)
AlarmFarbe = RGB(256, 0, 0)
Set Alarm = Sheets(1).Range("B4")
Application.OnTime Now + TimeSerial(0, 0, 1), "Timer"
 
End Sub

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:
WYSIWYG-Editor, ctl00_Content_editor1 Editor WerkzeugleistenDokument Quellcode VorschauZwischenablage/Rückgängig AusschneidenTastaturkürzel Strg+X KopierenTastaturkürzel Strg+C EinfügenTastaturkürzel Strg+V Als Klartext einfügenTastaturkürzel Strg+Alt+Umschalt+V Aus Word einfügen RückgängigTastaturkürzel Strg+Z WiederherstellenTastaturkürzel Strg+YEditieren Suchen Ersetzen Alles auswählenGrundstile FettTastaturkürzel Strg+B KursivTastaturkürzel Strg+I UnterstrichenTastaturkürzel Strg+U Durchgestrichen Formatierung entfernenAbsatz Nummerierte Liste einfügen/entfernen Liste Einzug verringern Einzug erhöhen Zitatblock Linksbündig Zentriert Rechtsbündig BlocksatzLinks Link einfügen/editierenTastaturkürzel Strg+K Link entfernen AnkerEinfügen Bild Tabelle Horizontale Linie einfügen Smiley Sonderzeichen einfügen Einen Quelltextabschnitt einfügen oder aktualisierenStileFormatFormatSchriftartSchriftartGrößeGrößeFarben Textfarbe HintergrundfarbeWerkzeuge Maximieren Blöcke anzeigenabout Über CKEditor 4 Drücken Sie ALT 0 für Hilfe

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
Countdown [hh:mm:ss] mit blinken	23.10.2014 14:51:03	Tim
1. Quick and dirty	01.11.2014 16:08:07	Markus_K
2. mit 2 Timer	01.11.2014 16:16:47	Gast50903
2. mit 2 Timer	03.11.2014 12:50:37	Gast28047
2. mit 2 Timer	03.11.2014 22:33:54	Markus_K
2. mit 2 Timer	04.11.2014 09:44:31	Gast80880
2. mit 2 Timer	05.11.2014 13:16:47	Gast58829
2. mit 2 Timer	06.11.2014 23:22:09	Markus_K
2. mit 2 Timer	09.11.2014 23:33:44	Gast60594
2. mit 2 Timer	10.11.2014 10:26:50	Gast27744
2. mit 2 Timer	11.11.2014 19:45:28	MarkusK
2. mit 2 Timer	20.11.2014 16:35:38	Gast71907
2. mit 2 Timer	20.11.2014 18:02:37	MarkusK
2. mit 2 Timer	27.11.2014 08:01:14	Gast52057
2. mit 2 Timer	27.11.2014 22:13:25	MarkusK
2. mit 2 Timer	11.12.2014 08:08:48	Gast44126
2. mit 2 Timer	11.12.2014 11:03:56	Gast80638
2. mit 2 Timer	11.12.2014 11:50:56	Gast8772
2. mit 2 Timer	11.12.2014 15:47:49	Gast27017
2. mit 2 Timer	12.12.2014 09:22:52	MarkusK
Countdown [hh:mm:ss] mit blinken	24.11.2014 05:59:10	Gast54953