VBA - Zelle blinkt manuell

Home

VBA Makro Beispiele

Formatierungen

Geschrieben von: Marcus Rose

Dienstag, 13. Mai 2008 um 17:16 Uhr

Hier wird eine Zelle zum Blinken gebracht. Dies geschieht, wenn in Zelle A1 das Wort OK steht und das Makro danach aufgerufen wird. (siehe dazu auch: Zelle blinkt automatisch: klick)

Option Explicit
'Es soll egal sein, ob das Wort
'groß oder klein geschrieben wird
Option Compare Text

'Variablendeklaration
Public Zeit As Variant
Public blink As Variant
Public i As Variant
Public Farbnorm As Integer

Sub start()
    i = 0
    'aktuelle Zellfarbe wird eingelesen
    Farbnorm = Range("A1").Interior.ColorIndex
    If Sheets("Tabelle1").Range("A1").Value = "ok" Then Call Zeitmakro
End Sub

Sub Zeitmakro()
    ' wieviele Sekunden soll es blinken?
    blink = 12
    Zeit = Now + TimeValue("00:00:01")
    i = i + 1
    If i - Int(i / 2) - Int(i / 2) = 0 Then
        'Farbe bei ungerader Sekunde
        Range("A1").Interior.ColorIndex = 3
    Else
        'Farbe bei gerader Sekunde
        Range("A1").Interior.ColorIndex = xlNone
    End If
    If i < blink Then
        'Das Makro wird erneut aufgerufen bis
        'die Blink - Zahl erreicht ist
        Application.OnTime Zeit, "Zeitmakro"
    Else
        'Zelle bekommt die alte Farbe
        Range("A1").Interior.ColorIndex = Farbnorm
    End If
End Sub

Hauptmenü

VBA Bereich

Schlüsselkonzepte

Autoren - Login

Werbung