VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zelle markieren, wenn zwei Bedingungen erfüllt sind

Gruppe

Feature

Bereich

Bedingt

Thema

Zelle markieren, wenn zwei Bedingungen erfüllt sind

Problem

In Spalte B sollen alle Werte markiert werden, wenn in Spalte D die Differenz größer als 2 ist und in Spalte E kein ok steht.

Lösung

Nur anhand der zugehörigen Beispielarbeitsmappe darstellbar.




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 Feature und Bedingt