Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeile farbig markieren

Zeile farbig markieren
Claudia
Hallo zusammen,
ich brauche mal wieder Eure Hilfe. Es geht mal wieder um eine VBA-Lösung.
Ich habe eine Tabelle, die in ersten Zeile die Überschriften beinhaltet. Ab Zeile 2 werden in Spalte A Nummern (benutzerdefniertes Format #.000) manuell eingegeben.
Bei einem Nummernwechsel (z.B. 003 auf 004) soll immer zwischen gelb und grün die Zeile (A bis P) farblich hervorgehoben werden. Hat eine Nummer zwei Zweileneinträge soll die Farbe nicht wechseln.
Beispiel 1
Zeile 2 001 gelb
Zeile 3 002 grün
Zeile 4 005 gelb
Beispiel 2
Zeile 2 001 gelb
Zeile 3 001 gelb
Zeile 4 002 grün
Ein Sortieren darf keine Probleme bei der farblichen Kennzeichnung darstellen.
Wer kann mir helfen?
LG und danke!
Claudia
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeile farbig markieren
12.04.2010 15:13:00
Walter
Hallo Claudia,
=WENN(MAX(1:1)=1;WAHR();FALSCH())
setze dies in bedingte Formatierung ein.
Gruß
Rentner Walter
AW: Zeile farbig markieren
12.04.2010 16:02:40
fcs
Hallo Claudia,
folgendes Makro führt eine entsprechende Farbformatierung aus.
Was meinst du mit
Ein Sortieren darf keine Probleme bei der farblichen Kennzeichnung darstellen.

Mit einer berechneten Hilfsspalte ginge es evtl. mit bedingter Formatierung.
Formel in Q2:  =WENN(A2A1;WENN(Q1=1;2;1);Q1)

Diese Formel bis zum Ende der Liste kopieren. Den Wert in Spalte Q kannst du dann für die bedingte Formatierung verwenden.
Gruß
Franz
Sub Faerben()
Dim wks As Worksheet, lFarbe1 As Long, lFarbe2 As Long, lFarbe As Long, Zeile As Long
Set wks = ActiveSheet
With wks
lFarbe1 = 36 'hell gelb, 6 - gelb
lFarbe2 = 35 'hellgrün, 4 - grün
lFarbe = lFarbe1
For Zeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(Zeile, 1)  .Cells(Zeile - 1, 1) Then
If lFarbe = lFarbe1 Then
lFarbe = lFarbe2
Else
lFarbe = lFarbe1
End If
End If
.Range(.Cells(Zeile, 1), .Cells(Zeile, 16)).Interior.ColorIndex = lFarbe
Next
End With
End Sub

Anzeige
Vielen Dank Euch beiden!
13.04.2010 07:21:38
Claudia
Habe die VBA-Lösung von Dir, Franz, genommen.
;

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

Zeile in Excel farbig markieren


Schritt-für-Schritt-Anleitung

Um in Excel Zeilen farbig zu markieren, kannst du die bedingte Formatierung oder VBA verwenden. Hier sind die Schritte für beide Methoden:

1. Bedingte Formatierung

  1. Markiere den Zellbereich: Wähle die Spalte A bis P ab der zweiten Zeile aus.
  2. Bedingte Formatierung öffnen: Gehe zu Start > Bedingte Formatierung > Neue Regel.
  3. Formel zur Bestimmung der zu formatierenden Zellen verwenden: Wähle „Formel zur Ermittlung der zu formatierenden Zellen verwenden“.
  4. Formel eingeben: Nutze die folgende Formel:
    =A2<>A1

    Diese Formel prüft, ob sich der Wert in der aktuellen Zeile von der vorherigen unterscheidet.

  5. Format festlegen: Klicke auf „Formatieren“ und wähle die gewünschte Farbe (z.B. Gelb oder Grün).
  6. Regel hinzufügen: Klicke auf „OK“ und dann erneut auf „OK“, um die Regel anzuwenden.

2. VBA-Makro

Falls du eine VBA-Lösung bevorzugst, kannst du das folgende Makro verwenden:

Sub Faerben()
Dim wks As Worksheet, lFarbe1 As Long, lFarbe2 As Long, lFarbe As Long, Zeile As Long
Set wks = ActiveSheet
With wks
lFarbe1 = 36 ' hell gelb
lFarbe2 = 35 ' hellgrün
lFarbe = lFarbe1
For Zeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(Zeile, 1) <> .Cells(Zeile - 1, 1) Then
If lFarbe = lFarbe1 Then
lFarbe = lFarbe2
Else
lFarbe = lFarbe1
End If
End If
.Range(.Cells(Zeile, 1), .Cells(Zeile, 16)).Interior.ColorIndex = lFarbe
Next
End With
End Sub

Führe das Makro aus, um die Zeilen entsprechend zu färben.


Häufige Fehler und Lösungen

Fehler 1: Farben ändern sich nicht wie erwartet

  • Lösung: Stelle sicher, dass die Formel in der bedingten Formatierung korrekt eingegeben wurde. Überprüfe auch, ob du den richtigen Zellbereich ausgewählt hast.

Fehler 2: VBA-Makro läuft nicht

  • Lösung: Überprüfe, ob du die Makros in den Excel-Optionen aktiviert hast. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen und aktiviere die Option „Alle Makros aktivieren“.

Alternative Methoden

Neben der bedingten Formatierung und VBA gibt es auch andere Möglichkeiten, Excel-Zeilen farbig zu markieren:

  1. Manuelle Formatierung: Du kannst jede Zeile manuell auswählen und die Hintergrundfarbe ändern.
  2. Formatvorlagen: Nutze die integrierten Formatvorlagen in Excel, um schnell Farben auf ganze Zeilen anzuwenden.
  3. Excel-Add-Ins: Einige Add-Ins ermöglichen erweiterte Formatierungsoptionen.

Praktische Beispiele

  1. Wochenende farbig markieren: Um in Excel 2016 Wochenenden farbig zu markieren, kannst du die bedingte Formatierung mit der Formel =WOCHENTAG(A2,2)>5 verwenden.
  2. Doppelte Einträge farblich hervorheben: Verwende die Formel =ZÄHLENWENN(A:A,A2)>1 in der bedingten Formatierung, um doppelte Einträge hervorzuheben.

Tipps für Profis

  • Ebenen verwenden: Überlege, verschiedene Farbtöne für unterschiedliche Werte zu verwenden, um die Lesbarkeit zu erhöhen.
  • Regeln kombinieren: Du kannst mehrere Regeln in der bedingten Formatierung kombinieren, um komplexere Anforderungen zu erfüllen.
  • Hilfsspalten nutzen: Erstelle Hilfsspalten, um deine Bedingungen klarer zu definieren und die Lesbarkeit der Formeln zu verbessern.

FAQ: Häufige Fragen

1. Wie kann ich die Farbe einer Zeile basierend auf einem bestimmten Wert ändern? Du kannst die bedingte Formatierung verwenden und eine Formel wie =A2="BestimmterWert" eingeben.

2. Funktioniert das auch in älteren Excel-Versionen? Ja, die bedingte Formatierung und die Nutzung von VBA sind in den meisten Excel-Versionen verfügbar, jedoch können sich einige Funktionen leicht unterscheiden.

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