Farbwechsel/Filtern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin Stefe,
Schreibe in D4
=WENN(B4=B3;D3;WENNFEHLER(D3+1;1))
markiere dann den Datenbereich deiner Tabelle (oder wähle diese Tabelle in dem Feld Links von Formelleiste)
setze einen bedingte Formatierung einfarbige Farbskala (Default grün),
gehe in bedingte Formatierung verwalten und bearbeite die Regel, um den grün in Grau zu tauschen.
Ich sehe gerade, dass damit nur die berechnete Spalte gefärbt wird.
Ansonsten kannst Du das probieren.

Sub Makro2()
Dim LO  As ListObject
Dim Z
Dim R, G, B
Dim Mem
Dim Zaehler As Long
Dim RefCol As Integer
    Set LO = Range("Tabelle2").Parent.ListObjects("Tabelle2")
    RefCol = LO.ListColumns("Monat").Index
    Mem = LO.ListRows(1).Range.Cells(RefCol).Value
    For Each Z In LO.ListRows
        If Z.Range.Cells(RefCol).Value > Mem Then
            Zaehler = Zaehler + 1
            Mem = Z.Range.Cells(RefCol).Value
        End If
    Next
    Zaehler = Zaehler + 1
    R = 200: G = 200: B = 200
    Mem = LO.ListRows(1).Range.Cells(RefCol).Value
    For Each Z In LO.ListRows
        Z.Range.Interior.Color = RGB(R, G, B)
        If Z.Range.Cells(RefCol).Value > Mem Then
            R = R - (200 / Zaehler)
            G = G - (200 / Zaehler)
            B = G - (200 / Zaehler)
            Z.Range.Interior.Color = RGB(R, G, B)
            Mem = Z.Range.Cells(RefCol).Value
        End If
    Next
End Sub

Du musst natürlich die Name der Tabelle und Spalte anpassen.
VG
Yal

Hi
die Idee von Yal per Formel in Hilfspalte funktinoniert so.
ich gehe mal davon aus, dass du die Hilfsspalte am Anfang einfügst, also Spalte A, die eigentlichen Daten folgen dann ab Spalte B.
es muss nun folgende Formel in Spalte A, und zwar in die Zelle A2.
Zeile 1 ist überschrift.
die Formel ziehst du dann bis unten.

=WENN(ISTTEXT(A1);FALSCH;WENN(ODER(TEILERGEBNIS(3;B2)=0;B2=B1);A1;NICHT(A1)))

die Formel sorgt dafür, dass sich WAHR und FALSCH immer bei jedem neunen Begriff in Spalte B abwechseln, dabei werden ausgeblendete Zeilen nicht berücksichtigt.
Das passt sich dann an die Filterung automatisch an.
du legst dir also eine Bedingte Formatierung für die Tabelle an, als Formel reicht: =$A2 und die Formatierung in er einen Farbe
die ganze Tabelle formatierst du dann normal mit der anderen Farbe
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread