Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Mannheimer_Bu vom 17.02.2019, 14:06 Options
AutoFilter Hintergrundformat bei Auswahl
Grüßt Euch,
ich hänge gerade wie eine Glocke am Autofilter.
Ich lasse per VBA eine Liste in einem neuen Sheet erstellen und lege einen AutoFilter an. Soweit kein Problem.
Jetzt will ich aber, dass sich die Zellenfarbe bei jedem genutzten AutoFilter verändert.
Vor einigen Jahren habe ich das Makro schon einmal benutzt, aber ich finde es nicht mehr in meinem Fundus. Es funktionierte irgenwie mit einer Function, die in die Bedingte_Formatierung hineingeschrieben wurde.
Wäre schön, wenn Ihr mir helfen könntet.
Gruß und Dank
ich hänge gerade wie eine Glocke am Autofilter.
Ich lasse per VBA eine Liste in einem neuen Sheet erstellen und lege einen AutoFilter an. Soweit kein Problem.
Jetzt will ich aber, dass sich die Zellenfarbe bei jedem genutzten AutoFilter verändert.
Vor einigen Jahren habe ich das Makro schon einmal benutzt, aber ich finde es nicht mehr in meinem Fundus. Es funktionierte irgenwie mit einer Function, die in die Bedingte_Formatierung hineingeschrieben wurde.
Wäre schön, wenn Ihr mir helfen könntet.
Gruß und Dank
Antwort 1 von fedjo vom 17.02.2019, 17:03 Options
Hallo,
mit der "Bedingte Formatierung " und der Zellfarbe liegst du schon richtig.
Aber so ganz verstehe ich deine Frage nicht.
Welche Zelle soll die Farbe verändern?
Gruß
fedjo
mit der "Bedingte Formatierung " und der Zellfarbe liegst du schon richtig.
Aber so ganz verstehe ich deine Frage nicht.
Zitat:
Jetzt will ich aber, dass sich die Zellenfarbe bei jedem genutzten AutoFilter verändert.
Jetzt will ich aber, dass sich die Zellenfarbe bei jedem genutzten AutoFilter verändert.
Welche Zelle soll die Farbe verändern?
Gruß
fedjo
Antwort 2 von Mannheimer_Bu vom 17.02.2019, 17:06 Options
Hi fedjo,
Wenn ich z.B. den Autofilter in B1 benutze, dann soll B1 eingefärbt werden. Wenn ich dann noch den Autofilter in AX1 benutze, soll auch AX1 markiert werden.
Viel Spaß beim Knobeln
Gruß
Wenn ich z.B. den Autofilter in B1 benutze, dann soll B1 eingefärbt werden. Wenn ich dann noch den Autofilter in AX1 benutze, soll auch AX1 markiert werden.
Viel Spaß beim Knobeln
Gruß
Antwort 3 von fedjo vom 17.02.2019, 17:57 Options
Antwort 4 von fedjo vom 17.02.2019, 18:34 Options
Hallo,
und noch eine Lösung:
Code in die Tablle einfügen wo der Autofilter gesetzt wird, und in das Tabellenblatt irgendwo die Funktions =heute() hinterlegen.
Option Explicit
Private Sub Worksheet_Calculate()
Dim intIndex As Integer
If Not ActiveSheet.AutoFilter Is Nothing Then
For intIndex = 1 To ActiveSheet.AutoFilter.Filters.Count
Range(Cells(ActiveSheet.AutoFilter.Range.Row, ActiveSheet.AutoFilter.Range.Column - 1 + intIndex), _
Cells(ActiveSheet.AutoFilter.Range.Row, ActiveSheet.AutoFilter.Range.Column - 1 + intIndex)).Interior.ColorIndex = _
IIf(ActiveSheet.AutoFilter.Filters(intIndex).On, 4, xlNone)
Next
End If
End Sub
Gruß
fedjo
und noch eine Lösung:
Code in die Tablle einfügen wo der Autofilter gesetzt wird, und in das Tabellenblatt irgendwo die Funktions =heute() hinterlegen.
Option Explicit
Private Sub Worksheet_Calculate()
Dim intIndex As Integer
If Not ActiveSheet.AutoFilter Is Nothing Then
For intIndex = 1 To ActiveSheet.AutoFilter.Filters.Count
Range(Cells(ActiveSheet.AutoFilter.Range.Row, ActiveSheet.AutoFilter.Range.Column - 1 + intIndex), _
Cells(ActiveSheet.AutoFilter.Range.Row, ActiveSheet.AutoFilter.Range.Column - 1 + intIndex)).Interior.ColorIndex = _
IIf(ActiveSheet.AutoFilter.Filters(intIndex).On, 4, xlNone)
Next
End If
End Sub
Gruß
fedjo
Antwort 5 von Mannheimer_Bu vom 18.02.2019, 11:27 Options
Grüß Dich,
vielen Dank für deine Hilfe. Leider war das nicht die Variante, die ich gesucht habe. Zwischenzeitlich aber hat sich mein Gedächtnis mal wieder ein Stück bewegt und ich konnte den Code replizieren.
Hier meine Lösung:
Dann muss ich nur noch als bedingte Formatierung eingeben
Formel ist =Filterformat(A1)
und das Format festlegen, was beides auch problemlos über das Makro ging.
Nochmal danke und bis demnächst
Gruß und Dank
Kevin
vielen Dank für deine Hilfe. Leider war das nicht die Variante, die ich gesucht habe. Zwischenzeitlich aber hat sich mein Gedächtnis mal wieder ein Stück bewegt und ich konnte den Code replizieren.
Hier meine Lösung:
Function FILTERFORMAT(Zelle) As Boolean
If ActiveSheet.AutoFilter.Filters(Zelle.Column).On Then
FILTERFORMAT = True
Else
FILTERFORMAT = False
End If
End Function
Dann muss ich nur noch als bedingte Formatierung eingeben
Formel ist =Filterformat(A1)
und das Format festlegen, was beides auch problemlos über das Makro ging.
Nochmal danke und bis demnächst
Gruß und Dank
Kevin
Ähnliche Themen
freie ComboBox-Auswahl analog AutoFilter
NewEgonOlsen 27.06.2007 - 101 Hits -
autofilter mit vba
SARP 12.08.2007 - 134 Hits - 2 Antworten
Autofilter auslesen und ausgeben
Tomschi 23.08.2007 - 128 Hits -
Ansicht Autofilter ändern
Clekie 27.09.2007 - 20 Hits -
excel vba filter reset
majoplinka 23.03.2008 - 141 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
