VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Beim Erfüllen einer Bedingungen Farbe für 1 Minute

Gruppe

Ereignis

Bereich

Change

Thema

Beim Erfüllen einer Bedingungen Farbe für 1 Minute

Problem

Wenn nach einer Eingabe in Zelle A1 der Wert von A1 <> dem Wert von B1, soll sich der Hintegrund von Zelle B1 für 1 Minute auf gelb stellen.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$A$1" Then Exit Sub
   If Range("A1").Value <> Range("B1").Value Then
      Range("B1").Interior.ColorIndex = 6
      Application.Wait Now + TimeSerial(0, 1, 0)
      Range("B1").Interior.ColorIndex = xlColorIndexNone
   End If
End Sub

    


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