Supportnet / Forum / Tabellenkalkulation

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

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

• Zeilenbreite und Zeilenhöhe in mm darstellen
• Von-Bis Zeitraum als farbigen Balken darstellen
• "Status" Tabellenname - Tabelle???
• 4 Sheets in einem Darstellen