VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zelle blinken lassen

Gruppe

Ereignis

Bereich

OnTime

Thema

Zelle blinken lassen

Problem

Wie kann ich die Hintergrundfarbe einer Zelle jede Sekunde wechseln?

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Call BlinkenEnde
End Sub

StandardModule: basMain

Public Const giIntervall As Integer = 1
Public Const gsMacro As String = "Blinken"
Public gdNextTime As Double

Sub BlinkenEin()
   gdNextTime = Now + TimeSerial(0, 0, giIntervall)
   Application.OnTime earliesttime:=gdNextTime, _
      procedure:=gsMacro, schedule:=True
End Sub

Private Sub Blinken()
   With ActiveCell
      If .Interior.ColorIndex = 6 Then
         .Interior.ColorIndex = 9
         .Font.ColorIndex = 6
      Else
         .Interior.ColorIndex = 6
         .Font.ColorIndex = 9
      End If
   End With
   Call BlinkenEin
End Sub

Sub BlinkenEnde()
   On Error Resume Next
   Application.OnTime earliesttime:=gdNextTime, _
      procedure:=gsMacro, schedule:=False
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und OnTime