Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: jede zweite Zeile einfärben nur belegter

jede zweite Zeile einfärben nur belegter
09.07.2020 13:58:41
Andreas
Hallo Excelfreunde,
benötige mal wieder Hilfe
mit folgendem Makro was ich gefunden habe formatiere ich jede zweite Zeile mit einer Hintergrundfarbe
Sub ZeilenFormatieren()
Dim Zeile As Long
With Tabelle1
'With Sheets("Bearbeitung")
For Zeile = 2 To .UsedRange.Rows.Count
If Zeile Mod 2 = 0 Then
.Rows(Zeile).Interior.ColorIndex = 33
End If
Next Zeile
End With
End Sub

Problem dabei ist, damit wird die gesamte Zeile angesprochen. (Spalte A bis absolut letzte Spalte der Tabelle)
Ich möchte aber erreichen das die Zeile nur bis zum Ende der belegten Spalten angesprochen und formatiert wird. Also in meinem Fall wäre das von Spalte "A" bis "RH". Sollte aber so sein (LetzteSpalte = End(xlUp). Aber das kriege ich einfach nicht gebacken. Wie muss ich mein Makro diesbezüglich dann abändern? Brauche bitte Hilfe.
Gruß Andreas
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: jede zweite Zeile einfärben nur belegter
09.07.2020 14:35:11
onur
Sub ZeilenFormatieren()
Dim Z,LSP
With Tabelle1
LSP=.cells(2,columns.count).End(xlToleft).Column
For Z = 2 To .UsedRange.Rows.Count
If Z Mod 2 = 0 Then
.Range(.Cells(Z,1),.Cells(Z,LSP)).Interior.ColorIndex = 33
End If
Next Z
End With
End Sub

AW: jede zweite Zeile einfärben nur belegter
09.07.2020 15:16:59
Andreas
Hallo onur,
Vielen herzlichen Dank erst einmal für deine Hilfe.
Habe das Makro eben getestet. Mit den Spalten funktioniert das jetzt auch perfekt.
Nur werden mir auch die Zeilen von Zeile 2 bis ans Ende der Tabelle formatiert.
Mein Wunsch ist es aber das eben nur der benutzte Bereich jede zweite Zeile farblich formatiert wird.
Also das Makro soll auch nur bis zur letzten belegten Zeile laufen. In meinem Fall wäre das jetzt Zeile 631.
könntest du mir bite nochmals helfen?
Wäre echt super.
Gruß Andreas
Anzeige
AW: jede zweite Zeile einfärben nur belegter
09.07.2020 15:21:12
onur
ES WIRD NUR DER BENUTZTE BEREICH GEFÄRBT.
Vermutlich hast du irgendwo ganz unten irgend eine Zelle/Zeile versehentlich formatiert/beschrieben, so dass Excel glaubt, das Blatt wäre bis unten benutzt.
AW: jede zweite Zeile einfärben nur belegter
09.07.2020 15:31:18
Daniel
Hi
wende das .UsedRange auch beim Färben an.
geht am einfachsten, wenn du es in die WITH-Klammer mit aufnimmst:
With Tabelle1.UsedRange
For Zeile = 2 To .Rows.Count
If Zeile Mod 2 = 0 Then
.Rows(Zeile).Interior.ColorIndex = 33
End If
Next Zeile
End With
oder nimm statt .UsedRange dann .Cells(1, 1).CurrentRegion
das nimmt nur den Bereich der mit Inhalten gefüllt ist, bis zur ersten durchgehenden LeerZeile und Leerspalte.
die andere frage wäre, ob man sowas nicht besser über die Bedingte Formatierung regelt.
Gruß Daniel
Anzeige
AW: jede zweite Zeile einfärben nur belegter
09.07.2020 15:45:26
Andreas
Hallo ihr beiden,
perfekt jetzt klappt es genau so wie ich mir das vorgestellt habe.
ganz herzlichen Dank für die schnelle Hilfe
liebe Grüße Andreas
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Jede zweite Zeile in Excel einfärben, wenn nicht leer


Schritt-für-Schritt-Anleitung

Um in Excel jede zweite Zeile farbig einzufärben, wenn diese nicht leer ist, kannst du die folgende VBA-Makro-Lösung verwenden:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden VBA-Code ein:

    Sub ZeilenFormatieren()
       Dim Zeile As Long, LSP As Long
       With Tabelle1
           LSP = .Cells(2, Columns.Count).End(xlToLeft).Column
           For Zeile = 2 To .UsedRange.Rows.Count
               If Zeile Mod 2 = 0 Then
                   .Range(.Cells(Zeile, 1), .Cells(Zeile, LSP)).Interior.ColorIndex = 33
               End If
           Next Zeile
       End With
    End Sub
  4. Schließe den VBA-Editor und führe das Makro aus, um jede zweite Zeile zu färben.

Mit diesem Makro wird nur der verwendete Bereich von Spalte A bis zur letzten belegten Spalte eingefärbt.


Häufige Fehler und Lösungen

  • Fehler: Alle Zeilen werden formatiert.

    • Lösung: Stelle sicher, dass du das UsedRange korrekt anwendest, um nur den benutzten Bereich zu färben.
  • Fehler: Excel erkennt leere Zeilen als belegt.

    • Lösung: Überprüfe, ob versehentlich Zellen formatiert oder beschrieben wurden. Entferne diese Formatierungen.

Alternative Methoden

Eine weitere Möglichkeit, jede zweite Zeile automatisch einzufärben, ist die Verwendung der Bedingten Formatierung:

  1. Markiere den gewünschten Bereich in deiner Tabelle.

  2. Gehe zu Start > Bedingte Formatierung > Neue Regel.

  3. Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden.

  4. Gib die folgende Formel ein:

    =UND(REST(ZEILE();2)=0;NICHT(ISTLEER(A1)))
  5. Wähle das gewünschte Format (z.B. Hintergrundfarbe) aus und klicke auf OK.

Diese Methode hat den Vorteil, dass sie sich automatisch aktualisiert, wenn du Daten hinzufügst oder entfernst.


Praktische Beispiele

  • Beispiel 1: Wenn du eine Liste von Verkäufen hast, kannst du jede zweite Zeile einfärben, um die Lesbarkeit zu erhöhen.
  • Beispiel 2: In einer großen Tabelle mit vielen Daten kannst du die Formatierung verwenden, um schnell zwischen den Datensätzen zu unterscheiden.

Tipps für Profis

  • Du kannst die ColorIndex-Nummer im Makro ändern, um verschiedene Farben zu verwenden. Eine Liste der verfügbaren Farben findest du in der Excel-Dokumentation.
  • Experimentiere mit der Bedingten Formatierung, um unterschiedliche Regeln für verschiedene Datenbereiche zu erstellen, z.B. jede zweite Spalte farbig zu gestalten.

FAQ: Häufige Fragen

1. Wie kann ich in Excel jede zweite Zeile einfärben, wenn sie nicht leer ist?
Verwende ein VBA-Makro oder die Bedingte Formatierung mit der entsprechenden Formel.

2. Funktioniert das auch in LibreOffice Calc?
Ja, du kannst ähnliche Methoden in LibreOffice Calc anwenden, um jede zweite Zeile einzufärben.

3. Welche Excel-Version benötige ich für diese Methoden?
Die beschriebenen Methoden sind in den meisten modernen Excel-Versionen verfügbar, einschließlich Excel 2010 und neuer.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige