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 gimalevi1 vom 26.07.2020, 16:01 Options
Filter Status deutlicher darstellen
Hallo,
hier meine Frage:
Beim Filtern von Tabellen werden Zeilennummern, sowie der kleine Pfeil der gefilterten Spalte blau dargestellt. Außerdem steht unten links manchmal "Filter-Modus".
Je nach Lichtverhältinissen ist das jedoch kaum zu erkennen.
Ich möchte gerne dass z.B. die Überschrift der gefilterten Spalte dann auch in blau hinterlegt ist, oder wie auch immer.
Gibt es da schon Lösungen? Tipps? Tricks?
Es dankt
Giorgio
hier meine Frage:
Beim Filtern von Tabellen werden Zeilennummern, sowie der kleine Pfeil der gefilterten Spalte blau dargestellt. Außerdem steht unten links manchmal "Filter-Modus".
Je nach Lichtverhältinissen ist das jedoch kaum zu erkennen.
Ich möchte gerne dass z.B. die Überschrift der gefilterten Spalte dann auch in blau hinterlegt ist, oder wie auch immer.
Gibt es da schon Lösungen? Tipps? Tricks?
Es dankt
Giorgio
Antwort 1 von fedjo vom 26.07.2020, 19:23 Options
Hallo Giorgio,
Code in ein Modul einfügen.
Autofilter filtert Spalte A, Überschrift A1 wird blau.
Gruß
fedjo
Option Explicit
Sub Autofilter()
Dim loLetzte As Long
Dim Name As String
Name = InputBox("Bitte Namen eingeben!")
Range("A1").Autofilter Field:=1, Criteria1:=Name
Range("A2:A65536").Cells.SpecialCells(xlCellTypeVisible)(1).Select 'findet zweite Zelle in A
' letzte belegte Zelle in Spalte A (1) ermitteln
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
' gefilterter Bereich ab A2 in Farbe
Range("A2:A" & loLetzte).Select
Range("A1").Font.ColorIndex = 5
Range("A1").Font.Bold = True
If ActiveCell.Value = "" Then
Selection.Autofilter 'Autofilter aus
End If
End Sub
Public Sub Filteraus()
If ActiveSheet.AutoFilterMode = True Then
Range("A1").Font.ColorIndex = 0
Range("A1").Font.Bold = False
Selection.Autofilter
End If
End Sub
Code in ein Modul einfügen.
Autofilter filtert Spalte A, Überschrift A1 wird blau.
Gruß
fedjo
Option Explicit
Sub Autofilter()
Dim loLetzte As Long
Dim Name As String
Name = InputBox("Bitte Namen eingeben!")
Range("A1").Autofilter Field:=1, Criteria1:=Name
Range("A2:A65536").Cells.SpecialCells(xlCellTypeVisible)(1).Select 'findet zweite Zelle in A
' letzte belegte Zelle in Spalte A (1) ermitteln
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
' gefilterter Bereich ab A2 in Farbe
Range("A2:A" & loLetzte).Select
Range("A1").Font.ColorIndex = 5
Range("A1").Font.Bold = True
If ActiveCell.Value = "" Then
Selection.Autofilter 'Autofilter aus
End If
End Sub
Public Sub Filteraus()
If ActiveSheet.AutoFilterMode = True Then
Range("A1").Font.ColorIndex = 0
Range("A1").Font.Bold = False
Selection.Autofilter
End If
End Sub
Ähnliche Themen
Zeilenbreite und Zeilenhöhe in mm darstellen
Blacky2 14.05.2007 - 258 Hits - 1 Antwort
Von-Bis Zeitraum als farbigen Balken darstellen
lothar48 24.07.2007 - 11 Hits - 7 Antworten
"Status" Tabellenname - Tabelle???
Tomschi 04.10.2007 - 28 Hits - 7 Antworten
4 Sheets in einem Darstellen
RalfH 22.11.2007 - 174 Hits - 3 Antworten
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
