Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofilter - Spalte farblich markieren

Forumthread: Autofilter - Spalte farblich markieren

Autofilter - Spalte farblich markieren
25.06.2004 14:00:22
Wolfgang
Hallo,
ich möchte in meiner Tabelle die Spalte, in der mittels Autofilter eine Selektion getroffen wurde farblich kennzeichnen. Kann mir jemand weiterhelfen ?
Vielen Dank vorweg
Wolfgang
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilter - Spalte farblich markieren
Ulf
Hier eine Antwort von Boris zum Thema:
Hi Jörg,
anbei ein Code von K.Rola. Er gehört komplett in das Modul der Tabelle.
Gefiltert wird in Zeile 1 - das musst du natürlich bei Bedarf anpassen.
Option Explicit

Private Sub Worksheet_Activate()
[iv65536].FormulaLocal = "=ZUFALLSZAHL()"
End Sub



Private Sub Worksheet_Calculate()
Dim F As Integer, aSh As Worksheet
Set aSh = ActiveSheet
Application.EnableEvents = True
Rows(1).Interior.ColorIndex = xlNone
If aSh.AutoFilterMode = False Then
Application.EnableEvents = False
Else
For F = 1 To aSh.AutoFilter.Filters.Count
If aSh.AutoFilter.Filters(F).On Then
aSh.Cells(1, F).Interior.ColorIndex = 6 'gelb
End If
Next
End If
Application.EnableEvents = True
End Sub



Private Sub Worksheet_Deactivate()
[iv65536] = ""
End Sub

Grüße Boris
Ulf
Anzeige
;

Forumthreads zu verwandten Themen

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
In ListBox nur gefilterte Zeilen Anzeigen lasse
Vulferin

Hallo zusammen
ich hab folgenen Code imgebrauch
'In dieser Routine laden wir alle vorhandenen
'Eintr_ge in die ListBox1
ListBox1.Clear 'Zuerst einmal die Liste leeren
lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die †berschriften
'Schleife solange etwas in der ersten Sp...
24.07.2014 20:01:30
Thread-ID: 1372194
6 Beiträge
Makro nur für gefilterte und eingeblendete Zeilen
flotschuk

Hey,
ich sitz momentan leider gerade etwas aufm Schlauch.
Ich habe eine Tabelle mit deren Werte ich ein Säulen-Diagramm befülle. Die Färbung der Säulen ist dabei abhängig von bestimmten Tabellenwerten. Für diese Färbung habe ich ein Makro geschrieben, dass soweit auch funktioniert. Alle...
19.03.2015 12:41:30
Thread-ID: 1415949
5 Beiträge
Anzeige
Nur gefilterte Zeilen auslesen
Bjoern

Hallo,
muss euch leider mit noch nem 2. Problem belästigen :-).
Ich hab per Autofilter nach mehreren Kriterien gefilter, und will nun eine Auswertung machen. Die Auswertung erfolgt per INDIREKT-Verweis auf die Tabelle. Das Problem ist, dass dann alle und nicht nur die gefilterten Werte an...
30.08.2005 10:33:46
Thread-ID: 659884
6 Beiträge
Nur gefilterte Zeilen drucken
Gregor

Hallo
Ich setze einenAutofilter und möchte nur die gefilterten Zeilen drucken. Wie kann ich das machen?
Vielen Dank und Gruss
Gregor
03.09.2006 22:06:56
Thread-ID: 798307
3 Beiträge
Nur gefilterte Zeilen ohne Duplikate in Combobox
Steffen

Ein guten Morgen,
ich möchte in meine Combobox1 (Listenbox) nur die vom Autofilter angezeigten Zeilen von Spalte A (und später auch von anderen Spalten) ohne doppelte Werte einlesen. Ich habe dieses Script als Grundlage was schon die Werte ohne doppelte Werte einließt aber leider nicht den...
17.01.2007 08:31:29
Thread-ID: 837949
5 Beiträge
Add Zeile, wenn Fenster fixiert und Filter gesetzt
Arthur

Einen schönen sonnigen Tag zusammen.
Wenn wir Excel manchmal besser verstehen würden ....
In einem Worksheet ist die Überschrift fixiert, zusätzlich ist ein Filter an. Über Code solle neue Zeilen hinzugefügt werden.
Alles getrennt ist kein Problem. Weil aber ein Hinzufügen bei gefil...
06.05.2013 14:24:08
Thread-ID: 1311834
8 Beiträge
Anzeige
Listbox aber nur bis... Wenn Filter dann..
Walter

Guten Morgen,
hatte gestern über das Forum eine I´nfo zur Listbox erhalten, funktioniert.
Anbei die Zeilen:
With ListBox1
.ColumnCount = 21
.RowSource = "C4:U400"
.ColumnWidths = "3cm;0,8cm;0,8cm;3,8cm;2,5cm;2,3cm;3cm;2cm;0cm;0cm;0cm;2cm;0cm;0cm;2cm;0cm;0cm;0cm;3cm;"
...
26.02.2006 11:51:04
Thread-ID: 737762
13 Beiträge
Anzeige
Wenn Autofilter Aktiv, Dann Wahrheitswert zurück
Becker

Hallo,
ich habe folgendes Problem: Möchte in einer Zelle eine 0 stehen haben wenn ein bestimmter Autofilter nicht gesetzt ist und ich möchte in der gleichen Zelle eine 1 stehen haben wenn der Autofilter gesetzt ist.
Wie kann man das machen, wenn es geht ohne VBA.
Viele Dank für die...
04.05.2006 13:06:47
Thread-ID: 760839
2 Beiträge
Anzeige
Zellen Zählen wenn Filter gesetzt
Franky

Hallo liebe Leute!
Ich steh auf dem Schlauch, vielleicht kann mir wieder einmal jemand helfen. Ich habe ein Spalte A in der vereinzelnt ein "X" steht und eine Spalte B in der vereinzelnt ein Wert steht. Wenn ich jetzt nach "X" Filter möchte ich wissen wieviele Werte sich in der Spalte B bef...
30.08.2007 14:49:00
Thread-ID: 902192
2 Beiträge
Wenn Filter in Spalte gesetzt ist Button in Userform anpassen
Asce

Hallo zusammen,
Ich setze über drei Buttons in einer Userform Filter (Criteria1:="" / Criteria1:="=" / Filter Löschen) auf eine Spalten in meiner Tabelle (ListObject). Dabei ändere ich das Bild der Buttons damit ich sehe welche Filterung gerade aktiv ist.
Private Sub cmdWeißSet_Click(...
03.01.2020 15:56:26
Thread-ID: 1731797
5 Beiträge
Bestimmte Werte aus einer Zelle herausfiltern
G_G

Hallo zusammen.
Ich habe in einer Zelle einen etwas längeren Text (mit Zahlen und Buchstaben). Ich würde jetzt gerne hieraus den Wert rausfiltern (in separate Spalte), der neben der Buchstabenkombination "AT" steht.
Hört sich einfach an. Da gibt es aber noch einige Sonderfälle.
Ich...
15.09.2008 12:03:00
Thread-ID: 1009747
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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