Listbox um Funktion erweitern

[Kuwer]

Hallo Hatsch,

vielleicht so?

If Tabelle6.Cells(lZeile, 11).Value = "" And Tabelle6.Cells(lZeile, 12).DisplayFormat.Interior.Color = ??? Then

Die Farbe ??? kannst Du so ermitteln (die entsprechende Zelle vorher markieren):

Sub aaa()

 Debug.Print ActiveCell.DisplayFormat.Interior.Color

End Sub

Gruß Uwe

[Storax]

Du Details musst Du schon selber ausarbeiten, denn soweit ich das sehe, ist es etwas "tricky" herauszufinden, ob ein bedingtes Format angewandt ist.
Der Ansatz oben etwas weiter aufgebohrt

Code:

Sub Tester()

Dim rg As Range
Dim cond As FormatCondition
Dim condTrue As Boolean

   Set rg = Range("A1")
   
   If rg.FormatConditions.Count > 0 Then
   
       Dim i As Long
       
       For i = 1 To rg.FormatConditions.Count
           Set cond = rg.FormatConditions(i)
           If cond.Type = xlCellValue Then
               Select Case cond.Operator
               Case xlEqual
                   condTrue = cond.Formula1 = "=" & Chr(34) & rg.Value & Chr(34)
               Case xlGreater
                   ' ...
               Case xlLess
                   ' ...
               
               End Select
           End If
           If condTrue Then Exit For
       Next i
       
   End If
   
   If condTrue Then
       MsgBox "Conditional format is true", vbOKOnly, "Conditional format"
   Else
       MsgBox "Conditional format is false", vbOKOnly, "Conditional format"
   End If

End Sub

PS Wenn's nur um die Farbe geht, ist Kuwers Lösung besser

[Hatsch]

Hallo Kuwer,

habe ich schon versucht, greift aber nicht, der Color Index wäre 3 für rot.

Grüsse

[schauan]

Hallöchen,

neben ...Color gibt es auch ...ColorIndex

[Kuwer]

Hallo Kuwer,

habe ich schon versucht, greift aber nicht, der Color Index wäre 3 für rot.

Grüsse

was genau hast Du versucht? Ich schrieb nichts von ColorIndex. Und wie man die gesuchte Farbnummer vorher ermitteln kann, hatte ich auch geschrieben. Wenn Du das nicht liest oder ignorierst, kann ich auch nichts mehr tun.

Gruß Uwe

[Hatsch]

Den Code If Tabelle6.Cells(lZeile, 11).Value = "" And Tabelle6.Cells(lZeile, 12).DisplayFormat.Interior.Color = ??? Then habe ich bereits versucht, ohne Erfolg.

Egal, habe das Ganze gelöst, indem ich zudem ein x in die Zelle platziere und dies abfrage.

Danke für die Hilfe