Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
332to336
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen mit Farben nicht ausblenden

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
Anzeige
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).
Anzeige
Danke, passt genau...oT
06.11.2003 14:59:10
Jochen
ot
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!
Anzeige

303 Forumthreads zu ähnlichen Themen

Zelleninhalte abwechselnd mit der Füllfarbe... ?
Selma

Hallo Leute,
in Spalte A habe ich ganz viele Einträge. Jetzt möchte ich von Zelle in der am Anfang dies <artikel name steht bis Zelle wo es am Anfang dies steht in Füllfarbe gelb und den nächsten Abschnitt mit der Füllfarbe grün darstellen. Dies soll immer abwechselnd bis letzte Zelle d...
07.10.2008 10:00:00
Thread-ID: 1014628
11 Beiträge
Anzeige
farbige Zellen summieren
Adi

Hallo Excelfreunde,
für mich eine unlösbare Aufgabe, aber hier werde ich immer geholfen.
Es geht um einen Kindergarten Flohmarkt. Das Excel-Programm läuft
ich möchte nur eine Verbesserung einfügen.
Es läuft wie folgt ab.
Wer verkaufen möchte bekommt eine (einmalige Id_Nr...
23.03.2009 15:44:25
Thread-ID: 1062949
4 Beiträge
Farbige Zellen zählen
Erich

Hallo,
ich habe da ein Problem: In Spalte D von Zeile 9 bis 242 befinden sich weiße, braune und violette Zellen. Die violetten Zellen sollen nun gezählt werden. Die Stückzahl der violetten Zellen soll nun mittels Formel ermittelt werden.
Ich bitte um Hilfe.
Gruß EM
09.07.2009 14:09:04
Thread-ID: 1087433
5 Beiträge
Anzeige
farbige zellen zählen
otto

Hi,
ich such eine Möglichkeit per Formel (ohne VBA) in einer Zeile alle roten Zellen zu zählen. Die Zellen enthalten aber keine Werte.
Gruß
otto
07.09.2009 13:46:55
Thread-ID: 1101019
3 Beiträge
Zählenwenn mit getrennten Zellen
petra

hallo,
ich bräuchte mal eure hilfe...
und zwar würde ich gerne bereiche zählen lassen, die größer als 0 sind...
dabei liegen die Zellen die durchsucht werden sollen nicht direkt aneinander, sondern mit erheblichen zellenabständen.
also zum beispiel
zelle b9
zelle b59
...
11.09.2009 12:25:25
Thread-ID: 1101979
10 Beiträge
Zellen mit Textfarbe zählen?
dieter(drummer)

Excel/VBA SoLaLa
Hi Exel/VBA Profis,
Ausgangspunkt: In den Zellen B3 bis U22 sind Buchstaben (immer nur 1 Buchstabe je Zelle!). Einige davon werden manuell auf Schriftfarbe ROT gesetzt.
Mein Problem: Wie erhalte ich die Summe der Zellen (Anzahl) im Bereich B3 bis U22 der aktiven Ta...
16.09.2009 17:12:59
Thread-ID: 1103294
8 Beiträge
Farbige Zellen zählen
Walter

Hallo Excelfreunde,
Ich erzeuge per bedingter Formatierung farbige Zellen.
Kann man die Werte dieser Zellen zählen?
Gruß
Walter
28.09.2009 21:57:52
Thread-ID: 1106093
11 Beiträge
Zellen mit Werten zählen
Werner

Hallo zusammen!
Ich suche jetzt seit 2 Tagen nach einer Lösung aber ich finde nichts (oder ich bin blind).
In Bereich B21 bis B200 stehen Namen.
Diese ziehe ich mit der Formel (z. B.) =AQ21 usw. aus einem anderen Bereich.
Zwischendurch sind auch mal Zeilen ohne Namen aber immer...
11.11.2009 09:29:32
Thread-ID: 1116077
11 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
10
4
3
4
17
2
9
7
10
10
5
10
8
6
4
3
3
5
3
6
9
2
6
4
3