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

Forumthread: Zeilen ausblenden wo Farbe rot

Zeilen ausblenden wo Farbe rot
27.11.2007 18:11:00
Tomislav
Hallo Forum!
Ich habe ca. 100 Zeilen und würde gerne alle ausblenden wo zwischen Spalte A und F keine Zelle mit der Farbe Rot markiert ist.
Die rot Markierung entsteht über eine bedingte Formatierung.
Vielleicht kann mir wer helfen.
Liebe Grüsse
Tomislav

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden wo Farbe rot
27.11.2007 18:21:37
Josef
Hallo Tomislav,
anstatt die Farbe auszulesen, solltest du die Bedingung überprüfen und anschliessend danach Filtern.
Vielleicht kannst du eine Beispieltabelle hochladen.
Gruß Sepp

AW: Zeilen ausblenden wo Farbe rot
27.11.2007 18:24:00
Daniel
Hi
da musst du dir sebst in einer freien Spalte eine Formel erstellen, die die Spalten A-F nach den gleichen Regeln abprüft, wie die bedingte formatierung und als Ergebnis hat, wieviele der 6 Zellen pro Zeile die Bedingung erfüllen.
Auf diese Hilfstspalte kannst du dann den Autofilter anwenden und die entsprechenden Zeilen ausblenden.
Gruß, Daniel

Anzeige
AW: Zeilen ausblenden wo Farbe rot
27.11.2007 18:25:00
Tomislav
die Überprüfung versteh ich nicht ganz.

AW: Zeilen ausblenden wo Farbe rot
27.11.2007 18:31:00
Tomislav
kenn mich schon aus!
hab die gleiche basis genommen wie bei der bedingten formatierung (zählenwenn!)
lg tomislav

AW: Zeilen ausblenden wo Farbe rot
28.11.2007 05:50:00
Vinz
Servus Tomislav,
probiers doch mal so, das sollte funktionieren:

Sub Hide_Zeilen_mir_Farbe_rot()
On Error Resume Next
'letzte Zeile in Spalte A suchen
Dim Zeilenanzahl as Long
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'letzte Spalte in Zeile 1 suchen - falls alle Spalten durchsucht werden sollen
Dim Spaltenanzahl as Integer
'Spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
'Spalte F
Spaltenanzahl = 6
Dim i As Long, n As Integer, myColor As Boolean
For i = 2 To Zeilenanzahl
For n = 1 To Spaltenanzahl
Cells(i, n).Select
'Falls Du mal alles farbige (Hintergrund) ausblenden willst
'If Cells(i, n).Interior.ColorIndex  xlNone Then
If Cells(i, n).Interior.ColorIndex = 3 Then
myColor = True
Exit For
End If
Next n
If myColor = False Then
Rows(i).Hidden = True
End If
myColor = False
Next i
End Sub


Greetz
Vinz

Anzeige
;

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

Zeilen in Excel ausblenden, wenn keine roten Zellen vorhanden sind


Schritt-für-Schritt-Anleitung

  1. Hilfsspalte erstellen: Füge eine neue Spalte neben deinen Daten hinzu, um die Anzahl der roten Zellen zu zählen. Verwende die Formel, die du für die bedingte Formatierung genutzt hast, um die Zellen zu überprüfen. Zum Beispiel:

    =ZÄHLENWENN(A2:F2; "Bedingung")
  2. Autofilter anwenden: Markiere die gesamte Tabelle, einschließlich der Hilfsspalte. Gehe zu Daten > Filter und aktiviere den Autofilter.

  3. Filter einstellen: Klicke auf den Filterpfeil in der Hilfsspalte und wähle nur die Zeilen aus, die eine Anzahl von roten Zellen größer als 0 haben. So werden alle anderen Zeilen ausgeblendet.

  4. VBA-Makro verwenden (optional): Du kannst auch ein VBA-Makro verwenden, um die Zellen automatisch auszublenden. Füge den folgenden Code in ein neues Modul ein:

    Sub Hide_Zeilen_mit_Farbe_rot()
       On Error Resume Next
       Dim Zeilenanzahl As Long
       Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
       Dim Spaltenanzahl As Integer
       Spaltenanzahl = 6
       Dim i As Long, n As Integer, myColor As Boolean
       For i = 2 To Zeilenanzahl
           For n = 1 To Spaltenanzahl
               Cells(i, n).Select
               If Cells(i, n).Interior.ColorIndex = 3 Then
                   myColor = True
                   Exit For
               End If
           Next n
           If myColor = False Then
               Rows(i).Hidden = True
           End If
           myColor = False
       Next i
    End Sub

Häufige Fehler und Lösungen

  • Fehler: Zeilen werden nicht ausgeblendet, obwohl sie rote Zellen enthalten.

    • Lösung: Überprüfe, ob die bedingte Formatierung korrekt angewendet wurde und ob die Hilfsspalte die richtigen Bedingungen zählt.
  • Fehler: Die Autofilteroption ist nicht verfügbar.

    • Lösung: Stelle sicher, dass deine Daten in einem zusammenhängenden Bereich ohne Leerzeilen oder -spalten angeordnet sind.

Alternative Methoden

  1. Bedingte Formatierung: Nutze die bedingte Formatierung, um farbige Zellen hervorzuheben und anschließend eine Hilfsspalte zur Zählung zu verwenden.

  2. Pivot-Tabellen: Verwende Pivot-Tabellen, um nur die relevanten Daten anzuzeigen und die farbigen Zeilen zu filtern.


Praktische Beispiele

  • Beispiel 1: Wenn du eine Liste von Verkäufen hast und nur die Verkäufer anzeigen möchtest, die ein bestimmtes Ziel erreicht haben, kannst du die oben genannten Schritte anwenden, um die Zeilen, die nicht rot markiert sind, auszublenden.

  • Beispiel 2: In einer Projektübersicht kannst du die Zeilen mit überfälligen Aufgaben hervorheben und die nicht betroffenen Zeilen ausblenden.


Tipps für Profis

  • Nutze die INDEX- und VERGLEICH-Funktionen, um dynamische Daten zu verwalten und farbige Zellen auszublenden.
  • Experimentiere mit den Bedingte Formatierung-Optionen, um deine Daten visuell ansprechender zu gestalten und deren Bedeutung zu verdeutlichen.
  • Automatisiere den Prozess mit VBA, um Zeit zu sparen, besonders bei großen Datenmengen.

FAQ: Häufige Fragen

1. Wie kann ich die Zeilen wieder einblenden? Du kannst die Filteroption zurücksetzen oder das VBA-Makro anpassen, um alle Zeilen wieder sichtbar zu machen.

2. Funktioniert das Ausblenden von Zeilen in allen Excel-Versionen? Ja, die beschriebenen Methoden funktionieren in den meisten gängigen Excel-Versionen, aber die VBA-Methoden könnten spezifische Anpassungen in den Einstellungen benötigen.

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