Office: Inhalt anhand Max an anderer Stelle anzeigen (bedingte Formatierung???)

Hallo,
ich habe 4 Spalten mit einer Prozentangabe (G1/J1/M1/P1) zugehörig ein dreispaltiger Arbeitsbereich (im Anhang jeweils farbig dargestellt). Ich möchte nun an anderer Stelle des Arbeitsblattes (A1:C11 und D1:F11) die 2 größten Prozentzahlen (wenn ungleich 0) mit dem jeweils zugehörigen Arbeitsbereich anzeigen. Habe schon etwas mit bedingter Formatierung rumgebastelt, es aber nicht hinbekommen.Vermutlich muss das über ein Makro realisiert werden, davon habe ich aber kaum Kenntnisse. Hoffe, ihr könnt mir da weiterhelfen.

:)

 

Hi,

mit bedingter Formatierung geht das nicht, da die Farben dort nicht dynamisch "vergeben" werden können.

Ein kleiner Code erledigt das aber:

PHP:

         Sub einfaerben()
Dim Farbe1 As Long
Dim Farbe2 As Long
Farbe1 = Cells(1, WorksheetFunction.Match(Range("A1"), Range("G1:P1"), 0) + 6).Interior.Color
Farbe2 = Cells(1, WorksheetFunction.Match(Range("D1"), Range("G1:P1"), 0) + 6).Interior.Color
Range("A1:C11").Interior.Color = Farbe1
Range("D1:F11").Interior.Color = Farbe2
End Sub


 

Hallo,
vielen Dank... die Idee ist eine andere ;-)
es geht nicht um die Einfärbung, sondern darum, dass wenn die Prozentzahlen in Spalten G1/J1/M1/P1 sich ändern, automatisch die Bereiche G1:I11 oder J1:L11 oder M1:O11 oder P1:R11 vorn angezeigt werden, im Bereich A1:C11 der Bereich mit der höchsten Prozentzahl, im Bereich D1:F11 der mit der zweithöchsten Prozentzahl.

Ich hoffe, ich habe mich etwas klarer ausgedrückt...