Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1832to1836
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
1832to1836
1832to1836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen ausblenden, wenn Farbe 22

Zeilen ausblenden, wenn Farbe 22
11.06.2021 23:09:19
Selma
Hallo Leute,
ich habe ab Zeile 3 bis Zeile 400 viele Daten stehen. Wie kann ich bitte per VBA in o.g. Zeilenbereich die Zeilen ausblenden bei den mindestens eine Zelle in Farbe 22 in Spaltenbereich B:E dargestellt ist?
Beste Grüße,
Selma

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden, wenn Farbe 22
11.06.2021 23:37:47
Daniel
Schon mal den Autofilter probiert?
Der kann Farben, auch solche durch bedingte Formatierung.
Gruß Daniel
AW: Zeilen ausblenden, wenn Farbe 22
12.06.2021 10:45:07
Selma
Hallo Daniel,
ich habe mich in der Formulierung der Frage vertan. Es sollen nur Zeilen mit der Farbe 22 für den Zellbereich A3:H400 eingeblendet bleiben.
Ich habe es wie folgt per VBA doch probiert. Leider werden zu viele Zeilen sprich auch die mit Farbe 22 werden ausgeblendet.
Was muss ich bitte im Code ändern, damit in meinem Zellbereich nur die Zeilen mit der Farbe 22 eingeblendet bleiben, wenn das Makro ausgeführt wird?

Sub ZeilenAusblenden()
'Zeilen ausblenden die keine Füllfabe 22 haben
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = ActiveSheet.Range("A3:H500")
Application.ScreenUpdating = False
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex  22 Then
Zelle.EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub
Beste Grüße,
Selma
Anzeige
AW: Zeilen ausblenden, wenn Farbe 22
12.06.2021 11:46:38
hary
Moin
Meinst du so?

'Zeilen ausblenden die keine Füllfabe 22 haben
Dim Bereich As Range, Zelle As Range, Zelle2 As Range
Dim farbe As Boolean
Set Bereich = ActiveSheet.Range("A3:A500")
Application.ScreenUpdating = False
For Each Zelle In Bereich -- jede Zeile In SpalteA
For Each Zelle2 In Zelle.Resize(1, 8)'-- jede Zeile In SpalteA bis SpalteH
If Zelle2.Interior.ColorIndex = 22 Then
farbe = True
End If
Next
If farbe = False Then Zelle.EntireRow.Hidden = True
farbe = False
Next
Application.ScreenUpdating = True
geht der Bereich immer bis Zeile500?
gruss hary
Anzeige
AW: Zeilen ausblenden, wenn Farbe 22
12.06.2021 12:55:08
Selma
Hallo Hary,
das sieht fast perfekt aus. :-)
Ich habe im Code den Zeilenbereich nach unten erweitert. Hier habe ich den Suchbereich der Farbe 22 auf Spalten B:E eingegrenzt: "For Each Zelle2 In Zelle.Resize(2, 5). Wenn z.B. nur in Spalte A eine Zelle in Farbe 22 dargestellt ist, dann wird diese nicht ausgeblendet, wieso? ;-)

Sub Zeilen_AUS()
'Zeilen ausblenden die keine Füllfabe 22 haben
Dim Bereich As Range, Zelle As Range, Zelle2 As Range
Dim farbe As Boolean
Set Bereich = ActiveSheet.Range("A3:A" & Range("A65536").End(xlUp).Row)
Application.ScreenUpdating = False
For Each Zelle In Bereich
For Each Zelle2 In Zelle.Resize(2, 5) 'Spalten B:E
If Zelle2.Interior.ColorIndex = 22 Then
farbe = True
End If
Next
If farbe = False Then Zelle.EntireRow.Hidden = True
farbe = False
Next
Application.ScreenUpdating = True
End Sub
Liebe Grüße,
Selma
Anzeige
AW: Zeilen ausblenden, wenn Farbe 22
12.06.2021 13:22:12
hary
Moin
Hier habe ich den Suchbereich der Farbe 22 auf Spalten B:E eingegrenzt:
Wat?
Wenn z.B. nur in Spalte A eine Zelle in Farbe 22 dargestellt ist, dann wird diese nicht ausgeblendet, wieso?
Resize erweitert den Bereich.

Zelle.Resize(2, 5)
Ausgehend von der Zelle(incl) 2 Zeilen nach unten und 5 Spalten nach rechts..
mach es mal so:

For Each Zelle2 In Zelle.Offset(, 1).Resize(1, 4) '--B bis E
entspricht:: von der Zelle(SpalteA) eine Spalte nach rechts(SpalteB) und erweitern bis SpalteE.
SpalteA Ist ausgenommen.
gruss hary
Anzeige
AW: Zeilen ausblenden, wenn Farbe 22
12.06.2021 13:48:33
Selma
Hallo Hary,
es funktioniert. Vielen herzlichen Dank!
Liebe Grüße,
Selma
AW: Zeilen ausblenden, wenn Farbe 22
12.06.2021 11:48:43
Firmus
Hallo Selma,
deine Schleife tut:
Wenn mindestens eine Zelle einer Zeile in den Spalten "A" bis "H" nicht Farbe 22 ist, dann blende die Zeile aus.
Ist das Absicht?
Gruß,
Firmus

311 Forumthreads zu ähnlichen Themen

Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
Anzeige
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Anzeige
Zeilen ausblenden wenn...
Andreas

Hi,
ich habe ein kleines Problem. Auf meinem Excel-Blatt sind von B4:B200 Datumswerte im Format TT.MM.JJJJ eingetragen. In der Zelle A1 gebe ich nun beispielsweise Januar ein. Ich will nun, dass alle Zeilen ausgeblendet werden, die nicht in der Spalte B ein Januar-Datum eingetragen haben. D...
04.09.2008 20:18:36
Thread-ID: 1007507
10 Beiträge
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
bestimmte Zeilen per Makro ausblenden
Fritz_W

Hallo Forumsbesucher,
ich bitte die VBA-Kundigen unter euch um Hilfe.
Mit welchem Makro kann ich in einer geöffneten Tabelle alle Zeilen ausblenden, in denen in Spalte B ein Datumseintrag steht, der vor dem jeweils heutigen Tag liegt?
Vielen Dank für eure Hilfe
mfg
Fritz
05.09.2008 10:57:00
Thread-ID: 1007611
3 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
6 Beiträge
Anzeige

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
4
13
2
5
7
9
6
2
4
5
10
9
3
5
2
6
3
2
6
2
5
5
7
8
5