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
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
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")
Autofilter anwenden: Markiere die gesamte Tabelle, einschließlich der Hilfsspalte. Gehe zu Daten
> Filter
und aktiviere den Autofilter.
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.
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
Fehler: Zeilen werden nicht ausgeblendet, obwohl sie rote Zellen enthalten.
Fehler: Die Autofilteroption ist nicht verfügbar.
Bedingte Formatierung: Nutze die bedingte Formatierung, um farbige Zellen hervorzuheben und anschließend eine Hilfsspalte zur Zählung zu verwenden.
Pivot-Tabellen: Verwende Pivot-Tabellen, um nur die relevanten Daten anzuzeigen und die farbigen Zeilen zu filtern.
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.
INDEX
- und VERGLEICH
-Funktionen, um dynamische Daten zu verwalten und farbige Zellen auszublenden.Bedingte Formatierung
-Optionen, um deine Daten visuell ansprechender zu gestalten und deren Bedeutung zu verdeutlichen.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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen