Anzeige
Archiv - Navigation
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

69 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige