Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
696to700
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
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filtern nach Farben

Filtern nach Farben
22.11.2005 12:01:11
deytschey
Hallo,
ich habe eine Tabelle in denen einige Einträge in einer Spalte rot hervorgehoben sind. Diese möchte ich gerne herausfiltern. Ich hoffe auf eine schnelle Antwort.
mit freundlichem Gruß
Dietmar Jauch

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filtern nach Farben
22.11.2005 12:21:43
Harald
Hallo Dietmar,
voarrausgesetzt es handelt sich nicht um bedingte Formatierung.....und vba-nein ist nicht wörtlich gemeint ;-))
Hier werden von der ersten bis zur letzten gefüllten Zelle in Spalte A (1) alle rot hinterlegten Zellen gesucht und in Spalte H (8)untereinadner gelistet.

Sub rotewerte
dim i as integer, x as integer
x = 1
for i = 1 to cells(rows.count, 1).end(xlup).row
if cells(i, 1).interior.colorindex = 3 then 'rot
cells(x, 8) = cells(i, 1).value
end if
x = x +1
next i
End Sub

Gruss Harald
AW: Filtern nach Farben
22.11.2005 13:08:50
deytschey
Hallo,
ich habe mich nicht verständlich ausgedrückt, die Schrift wurde rot und fett formatiert, nicht die Zelle. Um mich genauer auszudürcken, bräuchte ich einen Filter der mir diejenigen Zellen auflistet die rot markiert wurden (von Hand.)
Vielen Dank schon einmal :)
Anzeige
AW: Filtern nach Farben
22.11.2005 13:19:41
Harald
Dann so

Sub rotewerte()
Dim i As Integer, x As Integer
x = 1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1).Font.Bold = True And Cells(i, 1).Font.ColorIndex = 3 Then 'rot
Cells(x, 8) = Cells(i, 1).Value
x = x + 1
End If
Next i
End Sub

Gruss Harald
AW: Filtern nach Farben - funktioniert noch nicht
22.11.2005 13:42:31
deytschey
Hallo,
na das funktionierte noch nicht so sehr. Also ich bin jtzt so weit gekommen:

Sub FilternNachSchriftfarbe()
Columns(1).Insert shift:=xlToRight
For x = 2 To 3635
'10=Anzahl der Zeilen die zu filtern sind
Cells(x, 1) = Cells(x, 2).Font.ColorIndex
Next x
Columns("J:J").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=«3»
Range("J2").Select
End Sub

Quelle: http://www.pctipp.ch/helpdesk/kummerkasten/archiv/office/22864.asp
Irgendwie erkennt Excel nicht die rote Farbe. Es wird immer der Wert -4105 (Schwarz) angezeigt und nicht rot. Meine Selektionsspalte ist J2:J3635
Hoffe noch einmal auf eure Hilfe
Anzeige
AW: Filtern nach Farben - funktioniert noch nicht
22.11.2005 13:49:21
Harald
Habs ja geahnt ;-))
....und in meiner ersten Antwort schon drauf hingewiesen.
Bedingte Formatierung auslesen ist ne schöne Sache. Sehr umfangreich und tricky.
https://www.herber.de/forum/archiv/112to116/t113090.htm
Mein Vorschlag: Filtere nach der Bedingung, die die bedingte Formatierung auslöst.
Gruss Harald
AW: Filtern nach Farben - funktioniert noch nicht
22.11.2005 13:54:09
deytschey
Hallo Harald,
dieses hat funktionert. Wie gesagt habe ich keine Ahnung von VBA, aber bei solchen Problemstellungen brauche ich es. In Zukunft muss ich dieses dringend lernen. Wie hast du VBA gelernt?
Wahrscheinlich hing es mit der Ansteuerung der Zellen zusammen. Auf eine Antwort würde ich mich freuen.
mfg
Jauch
Anzeige
AW: Filtern nach Farben - funktioniert noch nicht
22.11.2005 14:12:08
Harald
vba lernen...tja
Mein Werdegang
vba-Kurs, Excel-CD von Herber und viel im Forum mitlesen und interessante Codes mal testen um die Wirkungsweise zu verstehen.
Ist Basiswissen vorhanden, kann man sich als Antworter versuchen.
Hier trifft man auf Probleme, die man sich niemals selbst ausdenken könnte....das ist meines Erachtens die beste Schule.
....und irgendwann ist man dann so gut, dass man auch versteht was unter F1 in der Excel-Hilfe angeboten wird ;-))
Gruss Harald
AW: Filtern nach Farben
22.11.2005 12:23:30
Hajo_Zi
Hallo Dietmar,
ich vermute mal das rot kommt nicht durch bedingte Formatierung. Dann mit einer Hilfsspalte in der Du die Farbe festellst.
Link zur Datei
Gruß Hajo
Anzeige

54 Forumthreads zu ähnlichen Themen

Nach Farben in unterschiedlichen Zellen filtern
Helmut

liebe vba'ler,
ich hätte eine frage zum filtern von zellfarben. dazu habe ich hier einen code gefunden, der lautet:
Sub nach_farbe_filtern() Dim s As Integer Dim x As Integer s = ActiveSheet.UsedRange.Columns.Count + 1 x = 2 Cells(1, s) = "Farbindex" Do While Not IsEmpty(Cells(x, 1)) Ce...
02.04.2010 12:15:49
Thread-ID: 1149968
3 Beiträge
Anzeige
Pivot nach aktuellem Feld Filtern
jens

Hallo Excel-Profis,
ich habe ein paar Makros erstellt, die Pivotdatenfilter zurücksetzen:
Sub Test_Aufraeumen_Click() On Error Resume Next Dim f As PivotField, i As PivotItem Application.ScreenUpdating = False With ActiveSheet.PivotTables(1) For Each f In .PageFields f.CurrentPage = "(A...
13.08.2010 01:54:40
Thread-ID: 1171999
5 Beiträge
Autofilter nach Farbe
Thomas

Hallo,
ich möchte mit Excel 2003 möglichst per Autofilter nach farbigen Zellen filtern, sprich, ich habe eine Tabelle, in der in einer Spalte farbige Zellen sind. Kann ich nach der Farbe der Zelle filtern?
28.12.2010 15:13:07
Thread-ID: 1193079
5 Beiträge
Anzeige
Zelle(n) nach zeitplan 150/240 min umfärben
Holger

hallo!
ich benötige hilfe zu excel 2003.
hab auch schon gegoogelt aber nichts passendes gefunden.
ich soll für ein projekt umsetzen das sich eine Zelle(n) automatisch nach ablauf einer bestimmten Zeit (150 bzw 240 min) von grün in rot färben. der Start soll sein wenn Zelle X mit in...
15.09.2011 06:27:42
Thread-ID: 1229928
2 Beiträge
Filtern nach Farben
Gregor

Hoi zusammenKann ich eine Tabelle mit unterchiedlichen Zellfarben nach Farben filtern (zum Beispiel Spalte 3 nach blau)?Vielen Dank für eure Tipps
(Sortieren habe ich im Forum gefunden, nicht aber filtern)Gruss Gregor

13.06.2002 09:38:52
Thread-ID: 128299
3 Beiträge
AutoFilter nach Farbe
Antje

Hallo Profi's,Wie kann ich in einer Tabelle nach Füllfarben oder Schriftfarben filtern? Geht das auch ohne Makro?Danke
Gruß
Antje
24.06.2002 10:32:50
Thread-ID: 130799
8 Beiträge
Button/Filter nach Farben
Karl

Hallo Spezialisten!
Ich habe eine Datenliste wo die darin enthaltenen Daten aus verschieden Handlungsfelder kommen die wiederum jeweils eine Farbe zugewiesen sind.
Ich möchte diese Daten nicht wie üblich mit den Standartfilter suchen sondern
hätte gerne einen Button (z.Bsp. Blau ) n...
15.01.2014 16:26:49
Thread-ID: 1345354
12 Beiträge
Nach mehr als 2 Kriterien pro Spalte filtern?
Kasimir

Hallo Leute!
Ich benötige mal wieder Eure Hilfe. Ich möchte nach mehr als 2 Kriterien in einer Spalte filtern. Ich habe hier in der Recherche auch einige Lösungsansätze gefunden, allerdings beziehen die sich immer nur auf Spalten, in denen nur ein Wort in der Zelle steht. Bei mir ist es all...
07.02.2014 07:16:36
Thread-ID: 1348441
9 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
2
6
4
4
2
1
2
7
11
8
2
4
4
18
1
3
3
1
3
7
2
1
7
1
6