Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1596to1600
1596to1600
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfung gefilterten Wert

Forumthread: Prüfung gefilterten Wert

Prüfung gefilterten Wert
18.12.2017 16:22:21
Peter
Hallo ihr Excelspezialisten,
ich habe eine Tabelle und verwende den Autofilter.
Jetzt benötige ich eine Prüfung, ob eine bestimmte Zelle im gefilterten Bereich die Hintergrundfarbe "3" enthält.
Bisher habe ich nachstehenden Code - dieser ist aber falsch.
If Cells(1, 2).Interior.ColorIndex = 3 Then
Makro
else
Makro
end if
Was muss bitte geändert werden?!
Besten Dank für eure Hilfe.
Gruss
Peter
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Was muss geändert werden / Was ist denn falsch? oT
18.12.2017 16:29:27
Matthias
AW: Was muss geändert werden / Was ist denn falsch? oT
18.12.2017 16:37:57
Peter
Hallo Matthias,
If Cells(1,2) prüft die erste Zelle in Spalte 2. Dies sind die Überschriften.
Wenn jedoch Autofilter gesetzt ist, dann ist die Überschrift vorhanden - dieser Wert ist rot ("3") geprüft werden soll aber der erste Wert unterhalb der Überschriften.
Gruss
Peter
mal sehen ob das was für Dich ist ...
18.12.2017 17:15:54
Matthias
Hallo Peter,
ich hab Dir mal eine Datei erstellt.(Nach Vermutung)
Der Filter ist gesetzt und einige Zellen sind in Spalte(2) ROT
Jetzt läuft eine Schleife und prüft den sichbaren Bereich ob eine Zelle ROT ist
https://www.herber.de/bbs/user/118399.xlsm
Gruß Matthias
Anzeige
AW: leider nein...
18.12.2017 17:25:03
Peter
Hallo Matthias,
besten Dank für Deine Mühe. Aber leider funktioniert dies nicht so wie ich dies benötige.
Habe zwischenzeitlich im Archiv einen Code gefunden und leicht geändert:
Sub Farbpruefung2()
Dim rBereich  As Range
Dim rZelle    As Range
With ThisWorkbook.Worksheets("ScantabelleKopierer1") ' den Tabellenblattnamen ggf. anpassen!
Set rBereich = .Range("B1:B" & .Cells(Rows.Count, 2).End(xlUp).Row)
For Each rZelle In rBereich
If rZelle.Interior.ColorIndex = xlNone Then GoTo ErrorHandler
Next rZelle
End With
MsgBox " alles rot"
Exit Sub
ErrorHandler:
MsgBox "Die Zelle " & rZelle.Address(0, 0) & " hat keine Hintergundfarbe.", _
64, "   Information für " & Application.UserName
Set rBereich = Nothing
End Sub
Dieser scheint so zu funktionieren, wie ich dies benötige.
Nochmals besten Dank und einen schönen Abend.
Gruss
Peter
Anzeige
nicht nachvollziehbar ...
18.12.2017 17:45:28
Matthias
Zitat
Wenn jedoch Autofilter gesetzt ist, dann ist die Überschrift vorhanden - dieser Wert ist rot ("3") geprüft werden soll aber der erste Wert unterhalb der Überschriften.
Genau das macht der Code in meiner Beispieldatei!
;

Forumthreads zu verwandten Themen

Gefilterte Dateien in txt exportieren
Gerhard

Namd zusammen
Gibt es eine Möglichkeit ausschliesslich gefilterte Dateien in eine txt Datei zu speichern?
Habe eine grosse Tabelle aus der ich nur einzelne Spalten (andere Spalten sind via VBA ausgeblendet) benötige und aus diesen noch sichtbaren Spalten via Autofilter nochmals eingren...
18.08.2008 21:35:19
Thread-ID: 1002746
4 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Nur gefilterte Zeilen in ein Textfeld übergeben
Heiko

Hallo an alle,
ich brauche ein wenig Hilfe. Ich bin gerade dabei aus einem ziemlich breiten (unübersichtlich geworden) Sheet die gewünschten Werte in eine Form (Textfeld) zu übergeben.
Ich bekomme es leider nicht hin, dass nur die gefilterten Zeilen im Textfeld erscheinen sollen.
Ic...
05.11.2008 19:59:37
Thread-ID: 1022076
7 Beiträge
Anzeige
Gefilterte Zeilen/ Spalten Kopieren
Falk

Hallo zusammen,
folgendes Problem für mich:
Ich filtere den Bereich von A1:CD1000. Der Filter wird je nach Anforderung auf verschiedene Spalten gesetzt.
In den Zellen von Spalte A befindet sich eine Formel, die den Blattnamen anzeigt wenn in Spalte D und F etwas eingetragen ist anso...
11.11.2008 10:13:33
Thread-ID: 1023442
3 Beiträge
Anzeige
Formel - Anzeige der gefilterten Inhalte
Rocky

Hallo Excelfreunde und zweiäugigen unter den Blinden und Einäugigen,
ich möchte gern einen dynamischen "Querfilter" basteln. Mein Ansatz bisher: Ich kopieren die Tabelle und transportiere diese. dann wird in jede Zelle folgende Formel geschrieben:
=WENN(INDIREKT(ADRESSE(SPALTE()+0;ZEILE...
28.11.2008 08:53:12
Thread-ID: 1028554
4 Beiträge
Anzeige
gefilterte Daten in Listbox einfügen
Larissa

Hallo,
ich möchte nur gefilterte daten in eine Listbox einlesen. Dieses Makro habe ich hier gefunden:
ClassModule: Artikel
Private Sub Worksheet_Calculate()
Dim iCounter As Integer
lstFilter.Clear
For iCounter = 2 To WorksheetFunction.CountA(Columns(1))
If Rows(iCoun...
17.01.2009 17:30:00
Thread-ID: 1040940
2 Beiträge
gefilterte Daten in Listbox einfügen
Larissa

Hallo,
ich bin mir nicht sicher, ob es richtig ist, dass ich einen neuen Thread aufmache, weil ich diese Frage schon für ein anderes Makro gestellt habe.
Jetzt komme ich an einer anderen Stelle nicht weiter. Auch mit dem folgenden Mako lese ich Daten aus einer Tabelle "Artikel" in eine...
18.01.2009 00:30:47
Thread-ID: 1041031
6 Beiträge
Anzeige
gefilterte Daten aus Listbox einlesen
Larissa

Hallo,
jetzt stecke ich wieder fest in meinem Userform.
Dank Eurer Hilfe habe ich jetzt geschafft, in der Listbox gefilterte Daten anzuzeigen.
Wenn man jetzt auf eine Eintragung in der Listbox klickt, sollen die Daten in Textfelder eingetragen werden.
Wenn die Daten nicht gefilt...
18.01.2009 19:19:00
Thread-ID: 1041237
11 Beiträge
ZÄHLENWENN mit gefilterten Daten
Wolfango

Hallo Experten,
folgendes:
In einer Spalte stehen Datumswerte. Diese Datumswerte werden mit folgender Formel ausgewertet:
ZÄHLENWENN(H9:H233;"<"&HEUTE()-29)
Das führt auch wunderbar zum gewünschten Resultat.
Ich möchte nun in der gleichen Spalte über den Autofilter...
30.01.2009 13:04:18
Thread-ID: 1045371
2 Beiträge
Selektieren gefilterter Datensätze, wie?
Werner

mein VBA-Level: befriedigend
Hallo Freunde,
wenn ich mit dem Auto-Filter, z.B. manuell, aus einer Menge von Datensätzen einen Teil herausgefiltert
habe und dann einen Teil der nach dem Filtern verbliebenen Zeilen markiere und kopieren will,
kopiert Excel offenbar immer die durch...
01.02.2009 09:32:39
Thread-ID: 1045837
5 Beiträge
Daten in gefilterten Bereich Kopieren
Sebastian

Hallo Forum,
vielleicht kann mir jemand bei meinem Problem helfen. Google konnte es nicht. :(
Ich habe ein Tabellenblatt mit gefilterten Daten. Nun möchte ich von einem anderen Tabellenblatt Daten neben die gefilterten, noch sichtbaren Daten kopieren. Excel lässt das leider nicht zu.
03.02.2009 15:19:09
Thread-ID: 1046691
2 Beiträge
ZÄHLENWENN mit gefilterten Daten?
Thomas

Hallo,
ich habe ein Problem. Ich habe ein Datenblatt mit 7 Spalten an Daten und um Häufigkeiten einzelner Daten in bestimmten Zeiträumen auszurechnen brauche ich die "ZÄHLENWENN" Funktion. Leider rechnet die mit allen Tabellendaten und nicht wie ich gehofft habe, nur mit den gefilterten Dat...
26.02.2009 15:47:33
Thread-ID: 1054438
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige