Clever-Excel-Forum

Seiten: 1 2

Hallöchen, zurück ....

@Schauan deine Antwort liess mir keine Ruhe, brachte mich dazu der Sache noch mal auf den Grund zu gehen, fand einen - Saublööden Fehler!

Qmiwer wo bitte stammt deine Farben Tabelle her??? Denn halte dich fest!!! Mein Excel 2007 kennt diesen Farbcode NICHT !!!

Ich habe schlicht und einfach drei Zellen mit dem- Standard Menü Farbcode- versehen, und die wurden vom Makro Einwandfrei markiert!
Freut mich das es NICHT am Code liegt! Den Fall hatte ich auch noch nicht ,,, Nun ja, Hauptsache gefunden!!

mfg Gast 123

Guten Morgen,

ganz vielen Dank für Deine Hilfe.

Die Farben stammen aus der benutzerdefinierten 3 Skalen Formatierung. Und genau das ist ja mein Problem.
Die Zelle mit dem Prozentwert soll in Abhängikeit des Wertes mit einer Farbe ausgefüllt werden. Und die Zellen links davon auch.
Nur die haben das Format "Zahl" und nicht Prozent.
Wenn man bei der bedingten Formatierung nun den Zellbereich aller Zellen, die eingefärbt werden sollen, berücksichtigt,
wird aus den Zellen mit dem Format "Zahl" das Format Prozent. Und somit stimmen die Werte nicht mehr.
Deshalb habe ich versucht, die bedingte Formatierung zu umgehen indem ich mir die möglichen Farben in eine Tabelle schreibe
und diese dann verwende.
Vermutlich gibt es aber eine einfache Lösung, auf die ich mit meinem geringen Wissen nicht komme.

VG
miwer

Hallo, :19:

bezogen auf deine Beispieldatei: :21:

Code:
Option Explicit

Public Sub Main()

    Dim lngRow As Long

    With Tabelle1

        For lngRow = 2 To IIf(Len(.Cells(.Rows.Count, 5)), .Rows.Count, .Cells(.Rows.Count, 5).End(xlUp).Row)

            .Range(.Cells(lngRow, 1), .Cells(lngRow, 4)).Interior.Color = .Cells(lngRow, 5).DisplayFormat.Interior.Color

        Next lngRow

    End With

End Sub

Das kannst du natürlich auch über "Worksheet_Change" direkt bei der Eingabe abwickeln. :21:

Seiten: 1 2

Gast 123

miwer

Case