Office: [Excel 2007] bedingte Formatierung- Bezug auf Tabelle

Hallo,
sitze gerade vor einem neuen Excel-Problem.
Habe eine Beispieldatei mal angefügt.
Tabelle1 enthält Zellen mit Patentklassen.
Tabelle2 enthält auch Patentklassen.
Ich möchte via bedingte Formatierung alle Zellen in Tabelle1 die einen Wert haben der gleich einem Wert der Tabelle2 ist farnig hervorheben.
Verstanden habe ich, dass ich die Felder der Tabelle2 die ich nutzen will benennen muss (tabelle2) und dann darauf verweisen muss bei der Regel.
Klappt aber nicht- irgendwas mache ich falsch!
Kann mir jmd helfen?
Danke im Voraus,
Tim

 

Hallo!

Die Grundvoraussetzung, also den definierten Namen, hast du ja schon geschaffen.
Damit ist der letzte Rest nur noch ein kleiner Schritt.
Für dich? Für die Menschheit? Keine Ahnung...Aber wir wollen ja auch nicht bis zum Mond! :mrgreen:

Markiere einfach in Tabelle1 den Bereich, in dem die Zellen gefärbt werden sollen, also z.B. B2:Q200 oder auch die gesamten Spalten B:Q, falls deine Originalmappe umfangreicher sein sollte und/oder sich dynamisch erweitert.

In der Bedingten Formatierung ("Formel zur Ermittlung...") greift dann diese Formel:

=ZÄHLENWENN(tabelle2;B2)

wobei B2 die aktive Zelle des markierten Bereichs sein muss.

Das war's dann schon! :-D

 

Hi Tim,

ich würde auf gar keinen Fall beim Erstellen der bedingten Formatierung die gesamten Spalten B:Q markieren, denn bei 16 Spalten á 1.048.576 Zeilen würde das die Arbeitsmappe unheimlich langsam machen.

Ich würde auch anstelle der bedingten Formatierung VBA verwenden, insbesondere dann, wenn sich deine Tabelle1 noch wesentlich erweitert, da eben viele Zellen mit bedingter Formatierung Excel ausbremsen.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngZelle As Range
    Dim rngBereich As Range
    If Target.Count = 1 Then
        If Application.CountIf(Worksheets("Tabelle2").Range("tabelle2"), Target) > 0 Then
            Target.Interior.Color = 49407 '<Farbe> 0 Then
                    rngZelle.Interior.Color = 49407 '<== Farbe anpassen
                Else
                    rngZelle.Interior.ColorIndex = xlNone
                End If
            Next rngZelle
        End If
    End If
    Set rngBereich = Nothing
End Sub

Bis später,
Karin