Office: Zeilen mit VBA einfärben (abhängig von Zelle)

Hallo zusammen,

nachdem mir mit meinem letzten Problem hier superschnell geholfen werden konnte, habe ich nun ein weiteres entdeckt:

Ich habe ein Sheet, bei dem in der Spalte AD einer von zwei möglichen Werten steht (Beispielsweise entweder "Hamburg" oder "München").
Die Werte in der Spalte AD ändern sich teilweise, daher brauche ich ein Makro als Lösung.
Ich möchte nun gerne eine Makro schreiben, dass alle Zeilen, bei denen in der Spalte AD der Wert "Hamburg" steht, komplett eingefärbt werden. (Also von Spalte A bis AD). Das Makro sollte von Zeile 2 bis 10000 laufen, das kann ich aber zur Not noch selbst anpassen *Smilie

Vielen Dank für eure Mühe

:)

 

So sollte es gehn. Evtl musst du noch die Farbe ändern...

Code:

 

Hallo
Hab ich nicht mit 10000 Zeilen probiert.
Code:

gruss hary

 

Hinweis: man sollte Variablen nicht nach Excel-internen Begriffen benennen, denn das kann zu fehlerhafter Codeausführung führen - R ist die Bezeichnung für eine Spalte und sollte deshalb besser nicht als Variablenname benutzt werden.

Es hat sich generell eingebürgert, Variablen einen Präfix voranzusetzen, der den Typ der Variablen repräsentiert, denn auf diese Weise hat man insbesondere bei großen Projekten gleich den Vorteil, aus dem Präfix des Variablennamen zu erkennen, mit welchem Inhalt man eine Variable belegen kann. Da hier der Typ Long deklariert wurde, bietet sich lngR anstelle von R an.

 

Moin Karin
Was haelst du von meinem Loesungvorschlag?
Bitte um Kritik. ;-)
gruss hary

 

Hi Hary,

mein Beitrag war nicht als Kritik gedacht sondern tatsächlich nur als Hinweis. Und weshalb sollte man Erfahrungen, die man selbst gemacht oder andere gemacht haben, nicht weitergeben - dazu ist doch ein Forum da *Smilie .

Die Autofilter-Liste kann nur 1.000 unterschiedliche Filterbegriffe auflisten - wenn mehr vorhanden sind, könnte das zu Fehlern beim Filtern führen. Und noch ein Manko hat der Autofilter: wenn zwischendurch eine Leerzeile vorkommt, wird der Rest unterhalb der Leerzeile nicht mit gefiltert. *wink.gif* *wink.gif*

Ich würde es mit der Find-Next-Methode lösen - die ist schneller, als wenn man jede Zeile durchläuft und auch sicherer als der Autofilter. Allerdings ist Voraussetzung, dass keine Zeilen ausgeblendet sind.

Code:

Aber: es gibt viele Wege die nach Rom führen... *wink.gif*

 

hallo Karin
Hab ich auch nicht Kritik gemeint, sondern eher dass du meinen Code kritisch beurteilst. Da ich immer schoen uebe, kommen manchmal verbesserungswuerdige Codes raus.
Habe es also gerne wenn jemand meine Codes *kritisiert*
gruss hary

 

Hallo zusammen,

erstmal vielen Dank für eure Hilfe. Ich habe nun noch zwei kleine Fragen:

1. Ich möchte das ganze auf eines von 8 Sheets (Name: Stadt) anwenden (habe mal versucht, das einzubauen)

2. Kann ich das auch nach mehreren Kriterieren machen? (Also: Wenn Hamburg oder Frankfurt gefunden wird, färbe die Zeile blau, ansonsten weiß?)

Code:

 

Hi Markus,

mit deinem Code suchst du aber nicht nach "Hamburg" oder "Frankfurt", sondern nach "Sparvertrag" in Spalte AB. Also soll der Vergleich mit einer anderen Spalte erfolgen: wenn "Sparvertrag" in AB gefunden wird und in der anderen Spalte entweder Hamburg oder Frankfurt steht entsprechend gefärbt werden?

Code:

Mit .Offset(0, -3) ist Spalte Y angesprochen, in der Hamburg oder Frankdurt steht - das musst du an deine Bedingungen anpassen.

 

Hallo Karin,

sorry, ich hatte den Code noch auf ein anderes Sheet angepasst, daher der Sparvertrag. Aber wir bleiben einfach bei dem Sheet mit den Städten.

Im Endffekt soll es nur so sein, dass wenn entweder Frankfurt oder Hamburg in der Zelle steht, die ganze Zeile eingefärbt wird (also eine Bedingung erfüllt ist, nicht beide) und ansonsten soll die Zeile weiß bleiben.

Viele Grüße

Markus

 

Hi Markus,

Beide Begriffe gleichzeitig suchen geht nicht. Dann musst du in einer zweiten Do...While Schleife nach dem selben Prinzip den 2. Suchbegriff suchen (Achtung, vorher strStart = "" setzen!).
Wenn deine beiden Suchbegriffe aber sehr häufig vorkommen ist es wahrscheinlich schneller, wenn du den Code aus Beitrag #2 verwendest und nur einen ElseIf-Teil ergänzt, in dem du mit "Frankfurt" vergleichst.

 

Hallo Markus,

warum machst du das nicht einfach mit einer bedingten Formatierung?

Code:

Wird angewendet auf
Code:

 

Wenn du nach Hamburg oder Frankfurt suchsts kannst du das wie folgt machen:
Code:

 

Hi Markus,

ich würde eine Select-Case-Anweisung verwenden, die lässt sich später dann wesentlich einfacher erweitern als eine If-Anweisung, falls noch andere Städte hinzukommen sollten:

Code:

Farben musst du natürlich an deine Wünsche anpassen.

 

Hallo zusammen,

vielen Dank an alle für die Lösungvorschläge! Ich werde die nächsten Tage mal versuchen, das entsprechend anzupassen und einzubauen.

Viele Grüße

Markus