Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe in einer Tabelle die Spalte B mit folgender "bedingten Formatierung hinterlegt [b] Formel ist =REST(B3;2)=0 [/b] damit sich die Farbe ändert, wenn zwei aufeinander folgende Zellen unterschiedliche Werte enthalten. Das funktioniert bei der Eingabe auch sehr gut, lasse ich aber einen Filter drüber laufen ist die Anzeige in Spalte B nicht mehr korrekt. Das heisst, die unterschiedlichen Zellinhalte werden nicht mehr erkannt B1 123 rot B2 123 rot B3 435 rot weil bei Eingabe auch rot-- soll jetzt aber schwarz sein B4 367 schwarz B5 888 rot B6 539 schwarz B7 539 schwarz B8 999 schwarz weil bei Eingabe schwarz-- soll jetzt rot sein Wie muss die Bedingte Formatierung aussehen damit auch das funktioniert? Dank und Gruß Christian

Hallo Vristian,

für Zelle A2 =REST(TEILERGEBNIS(2;$A$2:A2);2)=0
Auf die restlichen das Format übertragen.

Gruß Hajo

Hallo Hajo,

funktioniert leider nicht. Schon bei der Eingabe wechselt jede Zelle die Farbe, obwohl sich der Wert nicht ändert.
Es kann vorkommen dass in A2:A7 der gleiche Wert (100)steht, somit sollen A2:A7 z.B. die gleiche Farbe(rot) haben.In A8:A10 gebe ich dann150ein, die Farbe wechselt auf schwarz. A11 (180) Farbe wechselt zurück auf rot. A12:A13 (500) Farbe soll wieder scharz sein. Das geht mit =REST(A2;2)=0 aber nicht mit =REST(TEILERGEBNIS(2;$A$2:A2);2)=0
Vielleicht hast Du ja noch ein Ass im Ärmel...

Gruß
Christian

Hallo Christian,

ich sehe nicht Deine Datei. Bei mir ging es. Aber ein nachbau sieht meist nicht so aus wie das Original.

Gruß Hajo

... kann noch Jemand etwas zur Lösung beitragen?

Habe mal die Datei hoch geladen ( hoffe es hat funktioniert)

http://www.uploadagent.de/files/1202577068/test.xls

Gruß
Christian

Hallo Christian,

folgebder Vorschlag:
Lösche die Bedingte Formatierung und kopiere folgendes Makro in den Codebereich "DieseArbeitsmappe"

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   If Not Intersect(Target, ActiveSheet.Range("D3:U" & _
   Cells(Rows.Count, 2).End(xlUp).Row)) Is Nothing Then
      If Target.Value = "x" Then
         Target.Interior.ColorIndex _
         = ActiveSheet.Cells(2, Target.Column).Interior.ColorIndex
      End If
   End If
End Sub

Beim Eintragen von "x" in eine beliebige Zelle nimmt diese die Farbe der entsprechenden Zelle aus Zeile 2 an.
Da Makro funktioniert in allen Tabellen.

Gruß Rainer

Hallo Rainer,

funktioniert ,Danke, aber wenn ich die Zelle überschreibe oder das x lösche (Fehleingabe) wird die Hintergrundfarbe nicht auf weiß oder ohne Farbe zurückgesetzt´,
Gruß
Christian

Hallo Christian,

von Löschen und Überschreiben war in der Frage eigentlich nicht die Rede.

Hier die Änderung

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   If Not Intersect(Target, ActiveSheet.Range("D3:U" & _
   Cells(Rows.Count, 2).End(xlUp).Row)) Is Nothing Then
      If Target.Value <> "x" Then
         Target.Interior.ColorIndex = xlNone
      End If
      If Target.Value = "x" Then
         Target.Interior.ColorIndex _
         = ActiveSheet.Cells(2, Target.Column).Interior.ColorIndex
      End If
   End If
End Sub

Gruss
Rainer

Hallo Rainer,



Du hast vollkommen Recht, es stand nicht in der Frage. Aufgefallen ist es nachdem ich ein X in der falsche Zeile platziert habe und ich es löschen musste.

Darum: Recht herzlichen Dank für die schnelle Umsetzung!

Hast Du vielleicht noch eine Idee warum nach "Filter" der Datumswechsel (rot/schwarz) nicht mehr korrekt angezeigt wird?

Gruß
Christian

Hallo Christian,



da kann ich Dir nicht helfen.
Ich wüsste nicht, wie ein Makro aussehen müsste, welches auf den Autofilter reagiert.

Gruss
Rainer

Hallo Rainer,
unter

http://www.uploadagent.de/show-88853-1206212292.html
habe ich die Datei hochgeladen

Gruß Helmut

• Bedingte Formatierung nach Filterauswahl
• Bedingte formatierung im Excel
• Bedingte Formatierung
• Text in durch bedingte Formatierung eingefärbte Zelle
• Bedingte Formatierung