Zeilen in gefilterten Bereich grau weiss färben

[Hans Huber]

Hallo liebe Excel-Profis

Ich möchte gerne in einem Bereich (A4:F74) die gefilterten Zellen
abwechselnd grau neutral grau färben.

Eine Makrolösung wäre super!

Würde mich über eine Hilfestellung sehr freuen.

Viele Grüße an alle Helfer Kurt

[Stefan Reusch]

Hallo Hans,

versuche es mal damit :

Sub ZeilenFaerben()
Dim i As Integer

ActiveSheet.Activate

For i = 1 To Selection.Rows.Count

If i Mod 2 = 1 Then _
Selection.Rows(i).Interior.ColorIndex = 35
Next

End Sub


Den Zeilenbereich, der im Wechsel gefärbt werden soll vorher
markieren und danach das Makor starten.

Gruß
Stefan

Post by Hans Huber
Hallo liebe Excel-Profis
Ich möchte gerne in einem Bereich (A4:F74) die gefilterten
Zellen abwechselnd grau neutral grau färben.
Eine Makrolösung wäre super!
Würde mich über eine Hilfestellung sehr freuen.
Viele Grüße an alle Helfer Kurt

[Hans Huber]

Hallo Stefan,

danke für Deine Antwort, mein Problem liegt aber noch im ansprechen der
sichtbaren (gefilterten ) Zeilen im markierten Bereich.

Vielleicht hast Du da noch eine Idee.

Ziel ist im gefilterten Bereich die erste Zeile mit einer Farbe zu versehen,
die nächste gefilterte neutral usw.


Viele Grüße Kurt

Post by Stefan Reusch
Hallo Hans,
Sub ZeilenFaerben()
Dim i As Integer
ActiveSheet.Activate
For i = 1 To Selection.Rows.Count
If i Mod 2 = 1 Then _
Selection.Rows(i).Interior.ColorIndex = 35
Next
End Sub
Den Zeilenbereich, der im Wechsel gefärbt werden soll vorher markieren und
danach das Makor starten.
Gruß
Stefan

Post by Hans Huber
Hallo liebe Excel-Profis
Ich möchte gerne in einem Bereich (A4:F74) die gefilterten Zellen
abwechselnd grau neutral grau färben.
Eine Makrolösung wäre super!
Würde mich über eine Hilfestellung sehr freuen.
Viele Grüße an alle Helfer Kurt

[Claus Busch]

Hallo Hans,

Post by Hans Huber
Ich möchte gerne in einem Bereich (A4:F74) die gefilterten Zellen
abwechselnd grau neutral grau färben.
Eine Makrolösung wäre super!
Würde mich über eine Hilfestellung sehr freuen.

markiere deinen Bereich, gehe auf Format => Bedingte Formatierung und
stelle dort ein Formel ist und gebe als Formel:
=REST(TEILERGEBNIS(3;$A$4:$A4);2)=0 ein und weise dein gewünschtes Format
zu. Damit ist dein Berich abwechselnd eingefärbt, ob gefiltert oder nicht.

[Wolfgang Habernoll]

Hallo Hans

so könnte es gehen, der Bereich bezieht sich auf Spalte A, leider sehe ich
keine Möglichkeit das Makro automatisch beim Filtereinsatz zu starten, daher
erst mal manuell. Um das ganze auch wieder aufzuheben kannst du das Makro
"FaerbenReset" nutzen.

Sub FilterRowsFaerben()
Dim dblI As Double
Dim dblLastRow As Double
Dim blnFlag As Boolean
dblLastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For dblI = 1 To dblLastRow
If Not Rows(dblI).Hidden Then
If blnFlag Then
Rows(dblI).Interior.ColorIndex = 15
blnFlag = Not (blnFlag)
Else
blnFlag = Not (blnFlag)
End If
End If
Next
End Sub

'' alle Zeilen wieder normal
Sub FaerbenReset()
Dim dblI As Double
Dim dblLastRow As Double
dblLastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For dblI = 1 To dblLastRow
Rows(dblI).Interior.ColorIndex = xlNone
Next
End Sub


mfG
Wolfgang Habernoll

Post by Hans Huber
Hallo liebe Excel-Profis
Ich möchte gerne in einem Bereich (A4:F74) die gefilterten Zellen
abwechselnd grau neutral grau färben.
Eine Makrolösung wäre super!
Würde mich über eine Hilfestellung sehr freuen.
Viele Grüße an alle Helfer Kurt

[{Boris}]

Hi Hans,

Post by Hans Huber
Ich möchte gerne in einem Bereich (A4:F74) die gefilterten Zellen
abwechselnd grau neutral grau färben.
Eine Makrolösung wäre super!

Auch wenn ich die von Claus gepostete Variante mit der bedingten
Formatierung selbst bevorzuge, hier noch ne Makrolösung, da du speziell
danach gefragt hast:

Option Explicit

Sub do_it()
Dim Af As AutoFilter, C As Range, B As Boolean
Set Af = ActiveSheet.AutoFilter
With Af.Range
.Interior.ColorIndex = xlNone
For Each C In .Columns(1).SpecialCells(12)
Range("A" & C.Row, "F" & C.Row).Interior.ColorIndex = -B * 15
B = Not B
Next C
End With
End Sub

[{Boris}]

Hi Hans,

Post by {Boris}
Hi Hans,

Post by Hans Huber
Ich möchte gerne in einem Bereich (A4:F74) die gefilterten Zellen
abwechselnd grau neutral grau färben.
Eine Makrolösung wäre super!

Auch wenn ich die von Claus gepostete Variante mit der bedingten
Formatierung selbst bevorzuge, hier noch ne Makrolösung, da du speziell
Option Explicit
Sub do_it()
Dim Af As AutoFilter, C As Range, B As Boolean
Set Af = ActiveSheet.AutoFilter
With Af.Range
.Interior.ColorIndex = xlNone
For Each C In .Columns(1).SpecialCells(12)
Range("A" & C.Row, "F" & C.Row).Interior.ColorIndex = -B * 15
B = Not B
Next C
End With
End Sub

Kleiner Nachtrag: Damit das Ganze auch automatisch abläuft, musst du
irgendwo in Deinem Blatt eine flüchtige Funktion hinterlegen - z.B.
=ZUFALLSZAHL() - und zudem folgenden Ergeigniscode ins Klassenmodul deiner
Tabelle packen:

Private Sub Worksheet_Calculate()
do_it
End Sub

[Wolfgang Habernoll]

Hallo Borris

Post by {Boris}
Hi Hans,
Kleiner Nachtrag: Damit das Ganze auch automatisch abläuft, musst du
irgendwo in Deinem Blatt eine flüchtige Funktion hinterlegen - z.B.
=ZUFALLSZAHL() - und zudem folgenden Ergeigniscode ins Klassenmodul deiner
Private Sub Worksheet_Calculate()
do_it
End Sub

na das ist ja mal ein toller Vorschlag, so könnte man dann ja auch mein Makro
zum laufen bringen, natürlich ist dein noch kürzer und funktioniert sogar.;-)
aber das von Claus klappt bei mir nicht, es werden da manchmal 2-3 Zeilen
hintereinander dann wieder mehrere nicht gefärbt.

mfG
Wolfgang Habernoll

[Claus Busch]

Hallo Wolfgang,

Post by Wolfgang Habernoll

Post by {Boris}
Hi Hans,
Kleiner Nachtrag: Damit das Ganze auch automatisch abläuft, musst du
irgendwo in Deinem Blatt eine flüchtige Funktion hinterlegen - z.B.
=ZUFALLSZAHL() - und zudem folgenden Ergeigniscode ins Klassenmodul deiner
Private Sub Worksheet_Calculate()
do_it
End Sub

na das ist ja mal ein toller Vorschlag, so könnte man dann ja auch mein Makro
zum laufen bringen, natürlich ist dein noch kürzer und funktioniert sogar.;-)
aber das von Claus klappt bei mir nicht, es werden da manchmal 2-3 Zeilen
hintereinander dann wieder mehrere nicht gefärbt.

meine Variante sollte aber funktionieren. Sowohl bei ungefilterter als auch
gefilterter Tabelle. Allerdings muss die Tabelle dazu wenigstens in Spalte
A lückenlos gefüllt sein.

[Wolfgang Habernoll]

Hallo Claus

da ich deine Fähigkeit nicht in Frage stelle hab ich es noch mal getestet.
Neue Datei geöffnet, die gleichen Daten aus der alten Datei-Spalte A
rüberkopiert, die Formel in Bedingte Formatierung eingesetzt und *es geht*
wohl mit den Einschränkungen "lückenlos gefüllt sein". Wechsele ich in die
andere Datei *es ist alles gleich* geht es nicht. Woran das liegt ? ...Lösung
heute nicht mehr , nur das du auch beruhigt schlafen kannst :-)

mfG
Wolfgang Habernoll

Post by Claus Busch
Hallo Wolfgang,

Post by Wolfgang Habernoll

Post by {Boris}
Hi Hans,
Kleiner Nachtrag: Damit das Ganze auch automatisch abläuft, musst du
irgendwo in Deinem Blatt eine flüchtige Funktion hinterlegen - z.B.
=ZUFALLSZAHL() - und zudem folgenden Ergeigniscode ins Klassenmodul deiner
Private Sub Worksheet_Calculate()
do_it
End Sub

na das ist ja mal ein toller Vorschlag, so könnte man dann ja auch mein Makro
zum laufen bringen, natürlich ist dein noch kürzer und funktioniert sogar.;-)
aber das von Claus klappt bei mir nicht, es werden da manchmal 2-3 Zeilen
hintereinander dann wieder mehrere nicht gefärbt.

meine Variante sollte aber funktionieren. Sowohl bei ungefilterter als auch
gefilterter Tabelle. Allerdings muss die Tabelle dazu wenigstens in Spalte
A lückenlos gefüllt sein.
--
Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2; Office 2000 SP3
claus_busch(at)t-online.de

[Hans Huber]

Hallo liebe Helfer,

danke für Eure tollen Lösungen, speziell an Boris Dein Makro macht nämlich
genau was ich schon lange gesucht habe.

Viele Grüße und ein großes DANKE!! Kurt

Post by {Boris}
Hi Hans,

Post by Hans Huber
Ich möchte gerne in einem Bereich (A4:F74) die gefilterten Zellen
abwechselnd grau neutral grau färben.
Eine Makrolösung wäre super!

Auch wenn ich die von Claus gepostete Variante mit der bedingten
Formatierung selbst bevorzuge, hier noch ne Makrolösung, da du speziell
Option Explicit
Sub do_it()
Dim Af As AutoFilter, C As Range, B As Boolean
Set Af = ActiveSheet.AutoFilter
With Af.Range
.Interior.ColorIndex = xlNone
For Each C In .Columns(1).SpecialCells(12)
Range("A" & C.Row, "F" & C.Row).Interior.ColorIndex = -B * 15
B = Not B
Next C
End With
End Sub
--
Grüße Boris
www.excelformeln.de