Zellen mit Farben nicht ausblenden

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Zellen mit Farben nicht ausblenden
von: Jochen
Geschrieben am: 06.11.2003 11:51:11

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

Bild


Betrifft: AW: Zellen mit Farben nicht ausblenden
von: WernerB.
Geschrieben am: 06.11.2003 12:14:29

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).


Bild


Betrifft: AW: Zellen mit Farben nicht ausblenden
von: WernerB.
Geschrieben am: 06.11.2003 12:26:31

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).


Bild


Betrifft: Danke, passt genau...oT
von: Jochen
Geschrieben am: 06.11.2003 14:59:10

ot


Bild


Betrifft: AW: Zellen mit Farben ausblenden
von: Galenzo
Geschrieben am: 06.11.2003 12:26:19

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!


Bild

Beiträge aus den Excel-Beispielen zum Thema " Zellen mit Farben nicht ausblenden"