Code Snippet "VBA Excel"

Markiert alle Zellen mit bedingten Formaten auf aktivem Blatt

'Markiert alle Zellen mit bedingten Formaten auf aktivem Blatt
Sub selectFormatConditions()
  Dim objGefundeneZellen As Range
  Dim objZelle As Range
  
  For Each objZelle In ActiveSheet.UsedRange
    If objZelle.FormatConditions.Count > 0 Then
      If objGefundeneZellen Is Nothing Then
        Set objGefundeneZellen = objZelle
      Else
        Set objGefundeneZellen = Union(objGefundeneZellen, objZelle)
      End If
    End If 'Not objZelle.Locked
  Next objZelle
  
  If objGefundeneZellen Is Nothing Then
    MsgBox "Keine bedingten Formate vorhanden"
  Else
    objGefundeneZellen.Select
  End If
End Sub