Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA jede zweite Zeile färben

VBA jede zweite Zeile färben
11.01.2018 10:38:06
MikeW
Hallo Zusammen,
ich möchte gerne jede zweite Zeile meines Reiters färben.
Nur ist mein Problem, das es bis Spalte AC gehen soll und nicht weiter.
Ich verwende folgenden Code, könnt ihr mir bitte sagen was ich ändern muss damit es nur bis Spalte AC geht?
Vielen Dank im Voraus.
Gruß Michael
Private Sub ()
With Tabelle2
For Zeile = 5 To .UsedRange.Rows.Count
If Zeile Mod 2 = 0 Then
.Rows(Zeile).Interior.ColorIndex = 15
End If
Next Zeile
End With
End Sub

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA jede zweite Zeile färben
11.01.2018 10:46:37
Bernd
Hi,
probier mal so:
Public Sub test()
Dim lngRow As Long
With Tabelle2
For lngRow = 4 To .UsedRange.Rows.Count Step 2
.Range(.Cells(lngRow, 1), .Cells(lngRow, 29)).Interior.ColorIndex = 15
Next
End With
End Sub
MfG Bernd
AW: VBA jede zweite Zeile färben
11.01.2018 10:56:59
MikeW
Hallo Bernd,
wunderbar, vielen Dank !
Anzeige
Gerne und Danke für die Rückmeldung - owT
11.01.2018 10:57:38
Bernd
;

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 farbig einfärben


Schritt-für-Schritt-Anleitung

Um jede zweite Zeile in Excel farbig zu markieren, kannst Du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

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

  2. Klicke auf Einfügen und wähle Modul.

  3. Kopiere und füge den folgenden Code in das Modul ein:

    Public Sub einfärben()
       Dim lngRow As Long
       With Tabelle2
           For lngRow = 4 To .UsedRange.Rows.Count Step 2
               .Range(.Cells(lngRow, 1), .Cells(lngRow, 29)).Interior.ColorIndex = 15
           Next
       End With
    End Sub
  4. Schließe den VBA-Editor.

  5. Um das Makro auszuführen, drücke ALT + F8, wähle einfärben und klicke auf Ausführen.

Damit werden alle zwei Zeilen farbig markiert. Du kannst die Farbe ändern, indem Du den ColorIndex anpasst.


Häufige Fehler und Lösungen

  • Fehler: Das Makro funktioniert nicht.

    • Stelle sicher, dass Du die richtige Tabelle verwendest. Der Code bezieht sich auf Tabelle2. Ändere dies, falls Deine Tabelle anders benannt ist.
  • Fehler: Farben werden nicht angezeigt.

    • Überprüfe, ob die Zeilen tatsächlich Daten enthalten. Der Code markiert nur gefüllte Zeilen.

Alternative Methoden

Wenn Du keine VBA verwenden möchtest, kannst Du auch die bedingte Formatierung nutzen:

  1. Markiere den Bereich, den Du einfärben möchtest.

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

  3. Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden und gib die folgende Formel ein:

    =REST(ZEILE();2)=0
  4. Wähle die gewünschte Formatierung aus und klicke auf OK.

Diese Methode ist ideal, wenn Du nur jede zweite Zeile markieren möchtest, ohne VBA zu verwenden.


Praktische Beispiele

Hier sind einige praktische Beispiele für die Verwendung des VBA-Codes:

  • Beispiel 1: Um jede zweite Zeile in grau zu färben, ändere ColorIndex = 15 in ColorIndex = 16.
  • Beispiel 2: Um nur die Zeilen zu färben, die nicht leer sind, kannst Du den Code folgendermaßen anpassen:

    Public Sub einfärbenNichtLeer()
       Dim lngRow As Long
       With Tabelle2
           For lngRow = 4 To .UsedRange.Rows.Count Step 2
               If .Cells(lngRow, 1) <> "" Then
                   .Range(.Cells(lngRow, 1), .Cells(lngRow, 29)).Interior.ColorIndex = 15
               End If
           Next
       End With
    End Sub

Tipps für Profis

  • Wenn Du regelmäßig mit VBA arbeitest, erstelle eine persönliche Makrosammlung, um häufige Aufgaben zu automatisieren.
  • Nutze Debug.Print, um Werte während der Ausführung zu überprüfen, falls Du auf Probleme stößt.
  • Experimentiere mit verschiedenen ColorIndex-Werten, um die gewünschten Farben schnell zu finden.

FAQ: Häufige Fragen

1. Wie kann ich die Farbe ändern? Du kannst die Farbe ändern, indem Du den ColorIndex im VBA-Code anpasst. Eine Liste der verfügbaren ColorIndex-Werte findest Du in der Excel-Dokumentation.

2. Kann ich die Methode auch für jede zweite Spalte anwenden? Ja, Du kannst den Code anpassen, um jede zweite Spalte zu färben. Ändere einfach die Schleife, um über Spalten statt über Zeilen zu iterieren.

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