Excelformel

[DerBoyistFly]

Moin Leute,
folgendes Szenarium: Ich habe eine Excel Tabelle mit vielen Zellen und Spalten, manche davon sind farbig hinterlegt.
Jetzt habe ich mir noch eine Spalte erstellt wo meinetwegen ein "Wahr" aufleuchtet wenn in dieser Zeile eine farbige Zelle ist und ein "Falsch" wenn alles Weiß ist. Wie lässt sich das in einer Formel ausdrücken?
LG

 

[ryan_blackdrago]

Bedingte Formatierung

 

[DerBoyistFly]

Ich will keine Zellen anhand von Werten von anderen Zellen färben sondern bereits gefärbte Zellen in der Zeile am Anfang durch ein Wahr oder Falsch einfacher Sichtbar machen.

 

[vionZ]

Meines Wissens nach kannst du den Farbwert einer anderen Zelle nicht abfragen.
Du könntest aber eine WENN Funktion verwenden die die Kriterien abfragt anhand derer auch die anderen Zellen eingefärbt werden.

 

[GMG-CC]

... dann wirst du per VBA/Makro jede der Zellen einer Zeile abfragen müssen, ob die Hintergrundfarbe anders ist als "Standard".

 

[bieneneber]

Tjoah, google hätte sicher geholfen. vlt kannst du mit den Tipps hier, hier oder hier etwas anfangen.

 

[ryan_blackdrago]

geht alles ohne VBA:

1) Namen definieren
z.B. Hintergrund
folgende Formel eintragen:
=ZELLE.ZUORDNEN(63;INDIREKT("ZS(-1)";FALSCH))

2) Spalten färben & Wenn-Formel entsprechend aufbauen:
=WENN(Hintergrund=3;"rot ist wahr";"nicht rot ist falsch")

 

[simpsonsfan]

Mit Zelle.Zuordnen sollte es ja klappen. Falls dort zu viele Hilfsspalten nötig sein sollten oder aus anderen Gründen eine Lösung per VBA bevorzugt wird, müsste etwas in der Richtung hinhauen:

Sub Makro1()
    Dim i As Integer
    Dim j As Integer
    Dim switch As Boolean
        
    For i = 1 To 100 'Zeilenanzahl'
        switch = False
        For j = 1 To 10 'Spaltenanzahl'
            If Cells(i, j).Interior.ColorIndex <> -4142 Then
            switch = True
            End If
        Next
        If switch = True Then
            Cells(i, 11).Value = "WAHR"
        End If
    Next
    
End Sub

Kann man entweder auf Knopfdruck laufen lassen oder eben auch bspw. auf das Workbook.Change-Event.
-4142 ist die Zellfarbe 'ohne Füllung' (manche sagen auch weiß.)