Frage zur bedingten Formatierung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo
"..Kann ich die Zellen zählen, bei denen die Bedingung zutreffend ist ..."
Ja, mit ZÄHLENWENN().
Die Zellen zu zählen deren Farben durch die Bedingten Formatierung verändert wurde, ist ungleich aufwändiger und nur mit VBA möglich.
Das ist ein Beispiel von Jens für die Bedingte Formatierung unter/bis E2003.
Dort sind aber nur 3 Bedingungen möglich. In E2007 gibt es ja fast kein Limit mehr

Sub BedingungeFormatierungErfüllt()
    'von JensF
    Dim C As Range
    Dim x As Long
    Dim Treffer As Boolean
    Dim Nummer As Long
    Dim f As Double
    Set C = ActiveCell
    Application.ReferenceStyle = xlR1C1
    If C.FormatConditions.count = 0 Then
        MsgBox "Keine bedingte Formatierung enthalten"
        Exit Sub
    End If

    For x = 1 To C.FormatConditions.count
        With C.FormatConditions(x)
            If .Type = 2 Then 'Formelbedingung
                Debug.Print ActiveCell.FormatConditions(x).Formula1
                Names.Add name:="testname", RefersToR1C1Local:=ActiveCell.FormatConditions(x).Formula1
                If [testname] = True Then
                    Treffer = True
                    Nummer = x
                    Names("Testname").Delete
                Else
                    Names("Testname").Delete
                End If
                Exit For
                ElseIf .Type = 1 Then '"Wert-Ist" Bedingung
                f = CDbl(.Formula1)
                Select Case .Operator
                    Case xlBetween
                        If C.Value >= f And C.Value <= CDbl(.Formula2) Then
                            Treffer = True: Nummer = x: Exit For
                        End If
                    Case xlEqual
                        If C.Value = f Then
                            Treffer = True: Nummer = x: Exit For
                        End If
                    Case xlGreater
                        If C.Value > f Then
                            Treffer = True: Nummer = x: Exit For
                        End If
                    Case xlGreaterEqual
                        If C.Value > f Then
                            Treffer = True: Nummer = x: Exit For
                        End If
                    Case xlLess
                        If C.Value < f Then
                            Treffer = True: Nummer = x: Exit For
                        End If
                    Case xlLessEqual
                        If C.Value <= f Then
                            Treffer = True: Nummer = x: Exit For
                        End If
                    Case xlNotBetween
                        If C.Value <= f Or C.Value >= CDbl(.Formula2) Then
                            Treffer = True: Nummer = x: Exit For
                        End If
                    Case xlNotEqual
                        If C.Value <> f Then
                            Treffer = True: Nummer = x: Exit For
                        End If
                End Select
            End If
        End With
    Next
    If Treffer = True Then
        MsgBox "Bedingung " & Nummer & " ist erfüllt"
    Else
        MsgBox "keine Bedingung erfüllt"
        Exit Sub
    End If
    Application.ReferenceStyle = xlA1
End Sub

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread