Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Bedingte Formatierung durch Makro automatisch auf zusätzliche Zeilen anwenden
#1
Hallo liebes Forum,

ich habe ein Makro mit einer bedingten Formatierung in der Spalte mit der violetten Farbe mit folgender Formel : 
Code:
=(K5<TEILERGEBNIS(101;$K:$K ))*(M5>0,2)

erstellt . Es geht um eine Auswertung von Kennzahlen. Diese Liste kommt monatlich rein. Ich möchte ein Makro drüber laufen lassen um automatisch einfärben zu lassen. Das Problem ist, dass jeden Monat mehr oder weniger Zeilen vorhanden sind, d.h. dass wenn zb. im Monat 1 1700 Zeilen vorhanden waren und im Monat 2 1800, sich die bedingte Formatierung nur bis zur Zeilenzahl des ersten Monates erstreckt und die restlichen Zeilen nicht formatiert werden. Wie stellt man die bedingte Formatierung so ein, dass sie egal wie viel Zeilen vorhanden sind immer auf alle Zeilen greift ? Und wieso färbt sich der Teil über der Tabelle auch ein, wie kann man das vermeiden ? Anbei ein Screenshot zur Veranschaulichung.

Danke im Vorraus ! =(K50,2)

Gruß

Excelsior


Angehängte Dateien Thumbnail(s)
   
Antworten Top
#2
Hi,

Zitat:Und wieso färbt sich der Teil über der Tabelle auch ein, wie kann man das vermeiden ?
Weil die Programmierung nicht passt!
Aber dies zu ändern ist ohne Code schwierig.
Letzte Zelle einer Spalte (eine von vielen Möglichkeiten)
z.B von C5:C-> letzte

with Sheets("Blattname")
msgbox .Range("C5",.cells(rows.Count,3).end(xlup)).Address
end with

lg
Chris
lg Chris
Feedback nicht vergessen.
[Bild: v.gif]
3a2920576572206973742064656e20646120736f206e65756769657269672e
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste