Office: Jede 2. Zeile in einem Bereich färben

Hallo Excel - Gemeinde,

ich habe folgendes Problem: Ich möchte jede Zweite Zeile färben. Soweit bekomme ich das auch hin, leider wird die Zeile bis zum Ende gefärbt, soll heißen bei zum Beispiel 10 benutzten Spalten wird die Färbung bis Spalte 16.384 durchgeführt.

Mir ist es bisher nicht gelungen, nur den benutzten Bereich (Bsp.: A4: J:100) zu färben --> daraus wird immer A4; J16.384).

Hat jemand eine zündende Idee?

Mein Code bisher:

Code:

Vielen Dank für Eure Hilfe

:)

 

Wäre eine Intelligente Tabelle nicht eine Option?

Hier kannst du die Formate einstellen und musst sie nicht per Code setzen.

 

Hallo xlph,

die Idee ist gut, aber es soll per VBA erfolgen, da die Zusammenstellung der Tabelle auch automatisiert aus einer Datenbank erfolgt.

 

Code:

 

Hi,

klar ist die Idee gut. Und wenn die Daten in die intelligente Tabelle eingefügt werden, muss ja trotzdem nix extra gemacht werden. Und falls doch, lässt sich der Bereich doch kinderleicht anpassen:

Code:

 

Hallo xlph,

der Code produziert das gleiche Bild, wie ich es bisher auch habe. Letzte gefärbte Spalte ist wieder 16.384.

Schade ....

 

Code:

Du weiss aber schon das die Farbe 4 ziemlich dunkel ist und man nichts mehr lesen kann, oder!?!

 

Hallo Drzwockel!
Ganz brutal: Eine leere Datei erstellen, die nur 100 Spalten und den Jahresbedarf an Zeilen hat.
In diese dann Deine Datensätze einspielen.

Aber warum der Code nicht funktioniert? Hast Du andere VBA Routinen, Formeln oder Makros am Laufen, die das Format übernehmen?
Was passiert, wenn Du "Long" gegen "Int" tauscht?

Viel Erfolg
Pit

 

Dann erstreckt sich dein benutzer Bereich über alle Spalten.

Die Tabelle solltest du säubern.

 

mit

Code:

wird grundsäzlich auf die gesamte Zeile Bezug genommen,
unabhängig wie breit der UsedRange ist

Entweder den Code von Rastrans nehmen, oder etwas
dynamischer:

Code:

Wobei: die gewählte Farbe ist schon grenzwertig ;-))

 

Hallo drzwockel,

hier mal als Alternative mit einer bedingten Formatierung realisiert. Innerhalb der definierten, aber änderbaren, Grenzen spielt es keine Rolle wie viele Zeilen/Spalten du einfügst. Im benutzten Spaltenbereich wird jede 2. Zeile gefärbt.

 

...das ist falsch.

Auch Rows bezieht sich wie Range, Cells, oder Columns bei hinzureichender
Refrenzierung auf den übergeordneten Bereich.

Welcher hier ActiveSheet.UsedRange ist und mit
.Rows(f).interior.Color = 4 ausreichend referenziert ist.

Somit bezieht sich Rows auf die Zeilen des benutzten Bereichs.

Ich wiederhole mich: Tabelle säubern.

Andernfalls bläht es die Datei unnötig auf!

 

Natürlich hast Du recht...bei ausreichender Referenzierung.

Ich bezog mich auf den Code des Fragestellers, bei dem Rows eben nicht auf den UsedRange referenziert war*wink.gif*

 

Dann hättste nicht die Zeile aus meinem Code nehmen dürfen.*wink.gif*

 

Hallo Doc,

probiere mal folgendes:
Lösche alle Zeilen ("Zellen löschen" und nicht "Inhalte löschen"!) unter der zuletzt von Dir benutzten Zeile. Wichtig ist, dass Du alle Zeilen löschst!
Dann stellst Du Dich auf die Zelle A1 (auch ganz wichtig!).
Und dann speicherst Du Deine Datei.
Nun müsste der Used.Range dem optisch benutzten Bereich entsprechen.

Klappt es nun?

LG Ingo