Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon stoney vom 08.02.2020, 16:04 Options

Bedingte Formatierung

Hallo,

ich habe in einer Tabelle die Spalte B mit folgender "bedingten Formatierung hinterlegt Formel ist =REST(B3;2)=0 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

Antwort schreiben

Antwort 1 von Hajo_Zi vom 08.02.2020, 17:23 Options

Hallo Vristian,

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

Gruß Hajo

Antwort 2 von stoney vom 08.02.2020, 20:09 Options

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

Antwort 3 von Hajo_Zi vom 09.02.2020, 00:48 Options

Hallo Christian,

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

Gruß Hajo

Antwort 4 von stoney vom 10.02.2020, 14:04 Options

... 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

Antwort 5 von rainberg vom 10.02.2020, 14:58 Options

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

Antwort 6 von stoney vom 10.02.2020, 23:22 Options

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

Antwort 7 von rainberg vom 11.02.2020, 10:32 Options

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

Antwort 8 von stoney vom 11.02.2020, 15:54 Options

Hallo Rainer,

Zitat:
.......

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

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

Antwort 9 von rainberg vom 11.02.2020, 16:25 Options

Hallo Christian,

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

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

Gruss
Rainer

Antwort 10 von Helmut46 vom 22.03.2020, 20:02 Options

Hallo Rainer,
unter

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

Gruß Helmut

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..