Office: (Office 2016) unterschiedliche Anzahl von Zeilen abwechselnd einfärben

Hallo und guten Tag,

ich bin seit heute neu hier und habe eine Excel-Tabelle, in der grds. Zeilen unterschiedlich eingefärbt werden sollen aufgrund der besseren Übersicht.

Aber...
In meinem Fall ist es so, dass nicht jede zweite Zeile eingefärbt werden soll, sondern es gibt immer mehrere zusammenhängende Zeilen, die in der gleichen Farbe eingefärbt werden sollen. Die Anzahl dieser zusammenhängenden Zeilen unterscheidet sich jedoch.

Ich habe hier mal eine Beispieldatei angehängt, in der sich auch bereits ein VBA-Code befinden dürfte (Makro), der leider nicht korrekt funktioniert. Bei dieser Lösung wird auch der Bereich rechts und unten von der bestehenden Tabelle mit eingefärbt, was natürlich nicht so sein darf.

Hier der Link zum Download der Datei:
Download Zeilen farblich sortieren.xlsm (22.23 KB) now. Fast and easy at workupload.com

Die Farben sollen sein:
1) weiß
2) Hexadezimal: #e2efda // RGB: 226, 239, 218


Hier der aktuelle VBA-Code aus der Excel-Datei, der zwar grds. funktioniert, wobei aber die Einfärbung rechts über die Tabelle hinausgeht:

Code:

Kann jemand von Euch hier weiterhelfen?

Danke und Grüße,
Yan

:)

 

Hallo,

was soll das werden ?

.Range("A4:B22" & .Cells(Rows.Count, 1).End(xlUp).Row)

Ist die letzte Zeile die 25, dann wäre der Bereich, den du angibst ...

.Range("A4:B2225")

Soll das so sein ?

Sabina

 

Code:

 

Hallo Sabina und danke für Deine Hilfe,

sorry, aber ich verstehe Deine Frage nicht so ganz - vor allem die Angabe "B2225".

Die Tabelle hat den Bereich von A4 bis B22.
Grds. soll nur dieser Bereich eingefärbt werden.
Aber natürlich werden immer wieder Zeilen zwischendrin eingefügt und diese sollten dann natürlich mit eingefärbt werden... in der gleichen Farbe, wie der entsprechende Block.

Die Tabelle wird sich also NACH UNTEN immer wieder erweitern (nach rechts nicht!!).

Auch Dir Marco danke für Deine Hilfe.
Aber die Zeile, die Du hier gepostet hast, steht ja schon in meinem Code von oben. Oder was möchtest Du mir damit sagen? :-)

Grüße,
Yan

 

Diese Codezeile färbt Dir Deine (entire;ganz(e)) Excelzeile.
Willst Du also nicht alles nach rechts raus gefärbt haben, muss Du dort ansetzen.

Hinzu kommt Sabinas angesprochene Problematik.

 

Hallo Marco und danke für die weitere Erläuterung.

Ich muss jedoch dazu sagen, dass ich in Sachen VBA wirklich Laie bin...
Wie kann ich denn diese Codezeile anpassen od. ändern, damit nicht nach rechts raus gefärbt wird?

Und... ich habe die von Sabina angesprochene Problematik ja nicht nachvollziehen können (siehe meine vorherige Antwort). Kannst Du mir da mal auf die Sprünge helfen?

Danke und Gruß,
Yan

 

...smile.... immer wieder mal recht lustig hier....*Smilie

oder anders gesagt: B22 & .Cells(Rows.Count, 1)

ergibt bei letzter Zelle 22 ein B2222 oder, bei Sabina's Annahme, letzte Zeile = 25 eben ein B2225..... alles klar?

Kurz gesagt: Schmeiß die 22 nach dem B von B22 raus...

 

Ja Ralf und danke. Ist mir jetzt klar und es freut mich, dass Ihr hier Spass habt ;-)

Ich habe eben den Code-Teil schon wie folgt abgeändert - aber auch das funktionierte nicht. Dabei kam der Debugger zum Vorschein:

Code:

Wie ja eben schon geschrieben, bin ich echter Laie in VBA und daher kann ich hier wirklich nur herum raten.

Würde mich freuen, wenn mir jemand von Euch mit dem korrekten Code helfen könnte.

Danke Euch,
Yan

 

...hab ich doch oben schon gesagt. Du verknüpfst die Zeilenangaben. Korrekt müsste das so aussehen:

For Each cell In .Range("A4:B" & .Cells(Rows.Count, 1).End(xlUp).Row)

 

\@RJ:
Na, ich hoffe Dein smile bezog sich auf die nachfolgend gezeigte Codezeile *wink.gif*
Ich ahnte schon das es auf ne pfannenfertige Lösung hinausläuft, hatte aber schon geantwortet...

Yan,
müssen wirklich alle Zellen in A? und B? geprüft werden oder genügt A um sich für die Farbe entscheiden zu können?

 

Hallo Marco,

es würde auch die Spalte A reichen, da es ja einfach um die zusammengehörenden Blöcke geht - und diese sieht man ja auch bereits in Spalte A.

Mit dem Code von RJ habe ich genau das gleiche Problem wie vorher... es werden zwar die richtigen Blöcke markiert, aber eben auch rechts über die Tabelle hinaus. Dabei stellte ich eben auch fest, dass der Code von RJ (bis auf die Zahl 22) genau der gleiche Code war, wie in meinem ersten Post ganz oben.

Danke und Gruß,
Yan

 

Moin Yan,

wenn Ich richtig interpretiere, versuchst mal folgendes:
Code:

Falls nicht; Beispielmappe mit Zielzustand hochladen.

 

Hallo Marco und danke für den Code.

Mit diesem Code wird jedoch nur die Spalte "A" eingefärbt.
Ich habe nun im Code das "A" durch ein "B" ersetzt (also "A4:B") und jetzt funktioniert es.

Seltsam... da ich es ja vorher auch schon mit dem "B" versucht hatte - aber eben mit "B22". Vielleicht war das ja auch der kleine Fehler.

Danke für die Hilfe und Grüße,
Yan

 

Naja, Hauptsache es funktioniert ...

Ein Frage noch:
Haben die Zellen A4, B4, C4, D4, E4 jeweils einen Wert in Deiner Tabelle drinstehen?

 

Nicht der kleine, sondern der entscheidende Fehler. Hättest Du Dir mal die Antworten vorher genau durchgelesen, dann hätte Dir das spätestens nach Post #7 klar sein müssen (da ist es auch noch einmal erklärt).

Zitat aus Post #7

Viel deutlicher geht es ja kaum noch...