Beiträge zum Thread: Formatierung

Hi,

da die Einträge ja sortiert sind, kannst Du immer blockweise färben (also farblos und Farbe im Wechsel).

Markiere dazu den Bereich B7:B40, dann Bedingte Formatierung - Neue Regel - Formel zur Ermittlung:

=REST(SUMME(N(LINKS($B$6:$B6;7)<>LINKS($B$7:$B7;7)));2)=0

und eine Hintergrundfarbe festlegen.

In Deinem Beispiel gehören Zeile 16 und 17 nach meinem Verständnis übrigens auch zusammen.
Ebenfalls gehe ich davon aus, dass die Zahlen bis zum Bindestrich immer 7-stellig sind. Falls nicht, muss man die Formel noch ändern.

VG, Boris

hi,

vielen dank für deine hilfe :-)
ich habe deinen vorschlag angewendet, erhalte aber leider nicht das gewünschte ergebnis.

ab den zeilen 12 und 13 passt das irgendwie nicht und die markierungen entsprechen nicht den korrekten gruppen.
außerdem wird die formatierung nicht bis ans ende fortgesetzt, obwohl ich den bereich angepasst habe.

liegt dies daran, dass ich etwas falsch mache?

https://www.herber.de/bbs/user/180772.xlsx


lg

Hi,

Du musst den Bezug in der Formel in Zeile 2 beginnen lassen - also:

=REST(SUMME(N(LINKS($A$2:$A2;7)<>LINKS($A$3:$A3;7)));2)=0

VG; Boris

danke für die hilfe :-)
leider habe ich weiterhin das problem, dass die formatierung nicht bis zum ende ausgeführt wird.

bei ist es es so, dass immer wenn ich auf speichern klicke, die formatierung fortgesezzt wird, allerdings nur für den ersichtlichen bildschirmausschnitt und wenn ich dann weiter scrolle, die formatierung verschwindet (siehe anbei den screenshot).

woran kann dieser darstellungsfehler liegen?

https://www.herber.de/bbs/user/180774.xlsx

lg

Hi,

die Liste muss aufsteigend nach der Spalte "interne Nr." sortiert sein.

VG; Boris

Hi

ich würde das mit einer Hilfsspalte lösen.
als erstes muss die Liste nach Spalte A (der internen Nummer) sortiert sein.
dann fügst du in der Zelle P3 (bzw erste freie Zelle am Tabellenende) folgende Formel ein und kopierst sie nach unten:

=LET(a;LINKS(A2:A4;FINDEN("-";A2:A4&"-")-1);

WENN(INDEX(a;2)=INDEX(a;1);P2;WENN(INDEX(a;2)<>INDEX(a;3);0;WENN(P2=1;2;1))))

die Formel kennzeichnet alle Zeilen,
die für sich alleine stehen (Interne Nummer bis zum Bindestrich) mit einer 0
von denen es mehrere gibt abwechselnd mit 1 und 2 (das für den Fall, dass keine Einzelzeile zwischen zwei verschiedenen Blöcken liegt)

dann legst du für den Bereich zwei Bedingte Formatierungen an, eine für $P3=1 und eine für $P3=2

Gruß Daniel

Hi,

um wie viele Daten geht es in deiner Original-Datei? Excel hat bei bedingten Formatierungen das Problem, dass diese die Performance auffressen. Sprich, je größer der Bereich auf den diese angewendet werden, desto wahrscheinlicher sind Darstellungsfehler wie Darstellungen die nur Teile von Zellen markieren bis hin zu gar keiner Darstellung mehr, wo eine sein müsste. Ich schlage daher eine Lösung per VBA vor.

Gruß Mr. K.

Sub Faerben()

  Dim clr As Long

  Randomize Timer

  clr = Int(Rnd * RGB(255, 255, 255))

  For Each c In Intersect(Range("B:B"), ActiveSheet.UsedRange)

    If c.Row > 1 Then

      If Left(c.Value, 7) = Left(c.Offset(-1, 0).Value, 7) Then

        c.Interior.Color = clr

        c.Offset(-1, 0).Interior.Color = clr

      ElseIf c.Offset(-1, 0).Interior.ColorIndex <> xlNone Then

        clr = Int(Rnd * RGB(255, 255, 255))

      End If

    End If

  Next c

End Sub

Code mal auf die Schnelle erstellt. Evtl. noch verbesserungswürdig.

Hallo


mit Hilfsspalte und dann bedingter Formatierung

Einzelne Werte bleiben ungefärbt

Arbeitsblatt mit dem Namen 'Tabelle1'   A B C D E F G H I J K L M N O P Q 4                                   5     Einkauf AV   6   interne Nr. Bedarfsmenge Bestandsmenge Bestellmenge Material bestellt voraussichtlicher Liefertermin voraus. Liefertermin KW voraus. Liefertermin Jahr Material ausreichend Status Auftrag Status Bearbeitung Liefertermin lt. CT ext. Dienstleistung beauftragt voraussichtliche Lieferung Material vorhanden Hilsspalte 7   1504001-90 0 0 0 nein       ja -     1     9 8   2431001-71 0 0 0 nein       ja -     1     9 9   2456801-00 0 0 0 nein       ja -     1     9 10   2456802-00 0 0 0 nein       ja -     1     9 11   2456803-00 0 0 0 nein       ja -     1     9 12   2460501-00 0 0 0 nein       ja -     1     9 13   2461001-00 0 0 0 nein       ja -     1     9 14   2461002-00 0 0 0 nein       ja -     1     9 15   2468101-00 0 0 0 nein       ja -     1     9 16   2481004-00 0 0 0 nein       ja - erledigt KW20 1     1 17   2481004-02 0 0 0 nein       ja -     1     1 18   2481901-02 0 0 0 nein       ja -     1     9 19   2482101-00 0 0 0 nein       ja - erledigt KW3 / 25 1     1 20   2482101-01 0 0 0 nein       ja Freigegeben     1     1 21   2482101-02 0 0 0 nein       ja Freigegeben     1     1 22   2482102-00 0 0 0 nein       ja - erledigt KW3 / 25 1     2 23   2482102-01 0 0 0 nein       ja Freigegeben     1     2 24   2482102-02 0 0 0 nein       ja Freigegeben     1     2 25   2482102-05 0 0 0 nein       ja Freigegeben     1     2 26   2482102-06 0 0 0 nein       ja Freigegeben     1     2 27   2482102-10 0 0 0 nein       ja -     1     2 28   2482102-11 0 0 0 nein       ja Freigegeben     1     2 29   2482102-15 0 0 0 nein       ja Freigegeben     1     2 30   2482102-16 0 0 0 nein       ja -     1     2 31   2482102-18 0 0 0 nein       ja -     1     2 32   2482103-00 0 0 0 nein       ja - erledigt KW3 / 25 1     0 33   2482103-01 0 0 0 nein       ja Freigegeben     1     0 34   2482103-02 0 0 0 nein       ja Freigegeben     1     0 35   2482103-06 0 0 0 nein       ja Freigegeben     1     0 36   2482103-10 0 0 0 nein       ja -     1     0 37   2482103-11 0 0 0 nein       ja Freigegeben     1     0 38   2482103-15 0 0 0 nein       ja Freigegeben     1     0 39   2482103-16 0 0 0 nein       ja -     1     0 40   2482103-18 0 0 0 nein       ja -     1     0 41                                   42

Zelle Formel Q7 =WENN(ZÄHLENWENN($B$7:$B$1000;LINKS(B7;SUCHEN("-";B7)-1)&"*")=1;9;REST(WENN(LINKS(B7;SUCHEN("-";B7)-1)=LINKS(B6;SUCHEN("-";B6)-1);Q6;Q6+1);3))

Zelle bedingte Formatierung... Format B7 1: Q7=0 abc B7 2: Q7=1 abc B7 3: Q7=2 abc

LG UweD

Einfach so:

Sub M_snb()

  y = 2

  For Each it In Range("B7:B40")

    If Left(it, 7) = Left(it.Offset(1), 7) Or Left(it, 7) = Left(it.Offset(-1), 7) Then

      If Left(it, 7) <> Left(it.Offset(-1), 7) Then y = y + 1

      it.Interior.ColorIndex = y

    End If

  Next

End Sub