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 Sindy vom 28.02.2019, 21:41 Options
Ansicht AutoFilter
Hallo,
wenn man den AutoFilter in Excel gesetzt und angewendet hat, sieht man das ja nur an dem kleinen blauen Pfeil. Letztens habe ich einen Tipp gelesen und noch gedacht, dass das genau richtig für mich auf Arbeit wäre.
Da stand, dass es eine Möglichkeit gibt diesen gesetzten Filter besser hervorzuheben. Also nicht nur über den kleinen Pfeil, sondern viel deutlicher.
Leider finde ich diesen Tipp nicht wieder. Habe wahrscheinlich zu viel Lesematerial.
Kennt vielleicht jemand diesen Trick?
Lieben Gruß
Sindy
wenn man den AutoFilter in Excel gesetzt und angewendet hat, sieht man das ja nur an dem kleinen blauen Pfeil. Letztens habe ich einen Tipp gelesen und noch gedacht, dass das genau richtig für mich auf Arbeit wäre.
Da stand, dass es eine Möglichkeit gibt diesen gesetzten Filter besser hervorzuheben. Also nicht nur über den kleinen Pfeil, sondern viel deutlicher.
Leider finde ich diesen Tipp nicht wieder. Habe wahrscheinlich zu viel Lesematerial.
Kennt vielleicht jemand diesen Trick?
Lieben Gruß
Sindy
Antwort 2 von Sindy vom 04.03.2019, 11:04 Options
Hallo Karin,
ja sowas meinte ich. Habe es ausprobiert, es hebt die Filterung ein wenig hervor. Allerdings muß man da auch genau hinschauen.
Mein Lebensgefährte hat da ein wenig probiert und mir ein tolles Add-In programmiert. Hatte immer das Problem, dass die "Deppen" bei mir auf Arbeit nicht gesehen haben, wo sie noch alles gefiltert haben und dann jedesmal schreien, dass ihre Daten weg wären.
Mit diesem Add-In, welches als kleine Symbolleiste angezeigt wird, kann ich den Autofilter reinnehmen (nicht mehr über Daten --> Filter); kann mir anzeigen lassen, wo ich den Filter gesetzt habe (wird dann leicht schraffiert dargestellt) und kann mit einem Klick sagen, dass alle Filter wieder rausgenommen werden sollen.
Option Explicit
Dim AnzahlSpalten As Byte
Sub FilterauswahlAnzeigen()
Dim i As Byte
On Error Resume Next
Application.ScreenUpdating = False
'Anzahl der Tabellenspalten ermitteln
SpaltenanzahlBestimmen
For i = 1 To AnzahlSpalten
Cells(1, i).Select
With ActiveSheet
If .AutoFilterMode Then
With .AutoFilter.Filters(i)
If .On Then
'Raster einblenden
Selection.Interior.Pattern = xlLightUp
Else
'Raster ausblenden
Selection.Interior.Pattern = xlSolid
End If
End With
End If
End With
Next
Application.ScreenUpdating = True
End Sub
Sub FilterAus()
Dim i As Byte
On Error Resume Next
Application.ScreenUpdating = False
SpaltenanzahlBestimmen
For i = 1 To AnzahlSpalten
Selection.AutoFilter Field:=i
Next
FilterauswahlAnzeigen
Application.ScreenUpdating = True
End Sub
Sub SpaltenanzahlBestimmen()
ActiveSheet.Range("A1").Select
Selection.End(xlToRight).Select
AnzahlSpalten = ActiveCell.Column
End Sub
Gruß Sindy
ja sowas meinte ich. Habe es ausprobiert, es hebt die Filterung ein wenig hervor. Allerdings muß man da auch genau hinschauen.
Mein Lebensgefährte hat da ein wenig probiert und mir ein tolles Add-In programmiert. Hatte immer das Problem, dass die "Deppen" bei mir auf Arbeit nicht gesehen haben, wo sie noch alles gefiltert haben und dann jedesmal schreien, dass ihre Daten weg wären.
Mit diesem Add-In, welches als kleine Symbolleiste angezeigt wird, kann ich den Autofilter reinnehmen (nicht mehr über Daten --> Filter); kann mir anzeigen lassen, wo ich den Filter gesetzt habe (wird dann leicht schraffiert dargestellt) und kann mit einem Klick sagen, dass alle Filter wieder rausgenommen werden sollen.
Option Explicit
Dim AnzahlSpalten As Byte
Sub FilterauswahlAnzeigen()
Dim i As Byte
On Error Resume Next
Application.ScreenUpdating = False
'Anzahl der Tabellenspalten ermitteln
SpaltenanzahlBestimmen
For i = 1 To AnzahlSpalten
Cells(1, i).Select
With ActiveSheet
If .AutoFilterMode Then
With .AutoFilter.Filters(i)
If .On Then
'Raster einblenden
Selection.Interior.Pattern = xlLightUp
Else
'Raster ausblenden
Selection.Interior.Pattern = xlSolid
End If
End With
End If
End With
Next
Application.ScreenUpdating = True
End Sub
Sub FilterAus()
Dim i As Byte
On Error Resume Next
Application.ScreenUpdating = False
SpaltenanzahlBestimmen
For i = 1 To AnzahlSpalten
Selection.AutoFilter Field:=i
Next
FilterauswahlAnzeigen
Application.ScreenUpdating = True
End Sub
Sub SpaltenanzahlBestimmen()
ActiveSheet.Range("A1").Select
Selection.End(xlToRight).Select
AnzahlSpalten = ActiveCell.Column
End Sub
Gruß Sindy
Ähnliche Themen
Autofilter Ergebnis in neue Zelle
fedjo 04.01.2007 - 101 Hits - 2 Antworten
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 - 21 Hits -
excel vba filter reset
majoplinka 23.03.2008 - 142 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
