Zellen mit Farben nicht ausblenden

Forumthread: Zellen mit Farben nicht ausblenden

06.11.2003 11:51:11

Jochen

Hallo Leute,

ein bischen VBA kann ich schon...

Ich habe eine Tabelle mit 100 Zeilen und 10 Spalten.

Einige Zellen sind farblich markiert(keine bedingte Formatierung).

Ich suche nun ein Makro, mit dem ich alle Zeilen ausblenden kann,
die keine Farben(Spalte A bis J) enthalten. Wenn also nur eine
Zelle in der Zeile eine Farbe hat, dann nicht ausblenden.

Danke schon mal fürs Lesen.

Gruß Jochen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellen mit Farben nicht ausblenden

06.11.2003 12:14:29

WernerB.
AW: Zellen mit Farben nicht ausblenden

06.11.2003 12:26:31

WernerB.
Danke, passt genau...oT

06.11.2003 14:59:10

Jochen
AW: Zellen mit Farben ausblenden

06.11.2003 12:26:19

Galenzo

AW: Zellen mit Farben nicht ausblenden

06.11.2003 12:14:29

WernerB.

Hallo Jochen,

wie gefällt Dir das:

Option Explicit


Sub Jochen()
Dim c As Range
Dim laR As Long, i As Long
Application.ScreenUpdating = False
laR = 100
For i = laR To 1 Step -1
For Each c In Range("A" & i & ":J" & i)
If c.Interior.ColorIndex <> xlNone Then
Rows(i).EntireRow.Hidden = True
End If
Next c
Next i
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).

AW: Zellen mit Farben nicht ausblenden

06.11.2003 12:26:31

WernerB.

Hallo Jochen,

mit Entsetzen stelle ich gerade fest, dass mein Vorschlag genau "anders rum" funktioniert.
Hier nun die - hoffentlich - passende - Variante:

Option Explicit


Sub Jochen()
Dim c As Range
Dim laR As Long, i As Long
Dim Farbe As Boolean
Application.ScreenUpdating = False
laR = 100
For i = laR To 1 Step -1
Farbe = False
For Each c In Range("A" & i & ":J" & i)
If c.Interior.ColorIndex <> xlNone Then
Farbe = True
End If
Next c
If Farbe = False Then
Rows(i).EntireRow.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).

Danke, passt genau...oT

06.11.2003 14:59:10

Jochen

AW: Zellen mit Farben ausblenden

06.11.2003 12:26:19

Galenzo

Hallo,
dies sollte dir weiterhelfen:

Private Sub CommandButton1_Click()
Dim rng As Range
    Application.ScreenUpdating = False
    For Each rng In Range("A1:Y100").Cells
        If Rows(rng.Row).Interior.ColorIndex = xlColorIndexNone Then
            Rows(rng.Row).Hidden = True
        End If
    Next
End Sub

In diesem Beispiel werden alle Zeilen in dem Bereich, die vollständig ohne Hintergrund sind, also keine bunten Zellen enthalten, ausgeblendet
Parameter für den Bereich kannst du dann entsprechend anpassen.

Viel Erfolg!

Beliebteste Forumthreads (12 Monate)

Zellen mit Farben nicht ausblenden

Forumthread: Zellen mit Farben nicht ausblenden

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread