Office: ganze Spalte einfärben

hallo leute komme nicht ganz Weiter habe und Zwar soll ich Zellen einfärben die einen bestimmten Zelleninhalt aufweisen!
in meinem Fall ist das "not assigned"

nun habe ich ein kleines Makro gebschrieben was die Zelle K nach diesem Wert dursucht und die zelle einfärbt.

Mein Problem ist nun, dass ich aber nicht nur die einzelne Zelle grün haben möchte sondern die ganze Zeile also A - L.

Bsp: ist in Spalte K3 ist der steht "not assigned" dann soll A3-L3 eingefärbt werden. kann mir da einer helfen?

hier mein code

Code:

:)

 

Hi,

ich habe das gerade nur überflogen, bin aber der Meinung, wenn es nicht unbedingt ein Makro sein soll, es einfach über bedingte Formatierung zu machen. (Formarteinstellung für Zellen und Zellenwert = "not assigned"). Falls du ein Makro haben möchtest, sag nochmal bescheid

Gruß

Nico

 

genau das is das problem es muss ein Makro sein

 

Hi,

Sub Zellen_färben() Dim i As Long For i = 2 To 65522 If InStr(Cells(i, "K"), "assigned") > 0 Then   With Range(Cells(i, "A"), Cells(i, "L")).Interior     .ColorIndex = 50     .Pattern = xlSolid   End With End If Next End Sub

Code eingefügt mit Syntaxhighlighter 4.15

 

Super!!!
vielen vielen Dank!

könntest du vielleicht nochmal kurz erklären was du gemacht hast? bzw den code mal kurz erläutern!

 

Hi,

Sub Zellen_färben() 'Variablendimensionierung Dim i As Long For i = 2 To 65522 'Abfrage ob in K2 bis K65522 assigned enthalten ist If InStr(Cells(i, "K"), "assigned") > 0 Then   'Falls enthalten, wird der Bereich Spalte A bis Spalte L eingefärbt   With Range(Cells(i, "A"), Cells(i, "L")).Interior     .ColorIndex = 50     .Pattern = xlSolid   End With End If Next End Sub

Code eingefügt mit Syntaxhighlighter 4.15

 

Ich übernehme das mal *wink.gif*, er hat einfach den Einfärbungsbereich über With Range auf die Spalten A - L erweitert, so wird die Zeile von A-L eingefärbt. Über die If-Bedingung wird geprüft, in welchen Zeilen in Spalte K deine Bedingung zutrifft und fertig. Über die Variable i wird dann gesichert, dass sämtliche Zeilen durchlaufen werden. (sollte so passen von der Erklärung) *wink.gif*

Gruß

Nico

 

Hallo!

Ist doch nicht nötig, gleich 65521 Zellen per Hand zu prüfen. Lasst doch einfach Excel für euch arbeiten! Code:

Viele Grüße
rastrans

 

ihr seit super vielen dank!!!

 

Hallo zusammen,

Ich möchte diesen Thread noch einmal aufleben lassen.
Die angegebene Lösung finde ich sehr praktisch, allerdings würde ich gerne noch Funktionen hinzu fügen:

1.) Alle Zellen, die nicht den Wert enthalten, sollen zurück auf "weiss" gesetzt werden, damit immer nur eine Zeile gefärbt ist.
Hintergrund ist, dass ich das aktuelle Datum aus einer Tabelle auslesen lasse und die entsprechenden Zellen vervorheben möchte. Aktuell würde die Tabelle Schritt für Schritt komplett eingefärbt.

2.) Das Marko automatisch beim Start ausgeführt wird

Vielen Dank ;D

 

Hallo,

um die ganzen Felder wieder auf "weiss" zu setzten
Code:

(Wird nach dem letzten DIM eingefügt!)

Starten einer Prozedur beim Programmstart erfolgt, indem du eine Prozedur mit dem Namen Workbook_Open() in DieseArbeitsmappe einfügst.

Gruß rastrans

 

Super, funktioniert *biggrin.gif*

Leider läd die Datei jetzt extrem lange. Sie beinhaltet 13 Worksheets.
Woran könnte das liegen?

Code im Bereich DieseArbeitsmappe:
Code:

Code im Bereich Modul1:
Code:

 

Hallo,

den Code habe ich gerade nochmal getestet. Er läuft doch schnell durch, also so, das man es eigentlich nicht merkt.

Du könntest noch die Zeile von oben durch diese hier ersetzten.
Code:

Das macht es etwas schneller, sollte aber nicht der Grund sein.
Auch die 13 Worksheets sind egal, da der Code sich immer nur auf das aktuelle Worksheet bezieht. Sollte sich das also mal beim Speichern verändern, dann läuft der Code ins leere. Man sollte den Code also so ändern, das er sich nur auf ein bestimmtes Worksheet bezieht.

War die Datei vorher schon langsam? Sind dort Verknüpfungen auf andere Exceldateien vorhanden?

Gruß rastrans

 

Hallo,

Die Datei baucht ca. 4-5 sec zum öffnen. Vorher war die Datei als normale xls gespeichert und öffnete sich praktisch sofort. Ergo gab es auch keine Verknüpfungen zu anderen Dateien.

Ich denke, die Änderung der Zeile hat sicher 2 Sekunden Zeit gespart. Danke für die Korrektur *biggrin.gif*