Autofilter - Bitte um Hilfe
02.08.2006 16:09:12
Philipp
Hier mein Threat von voher:
----------------------------------------
Hallo,
ich habe vor wenigen Tagen bereits in diesem Forum Hife erhalten.
Leider habe ich immer noch Probleme damit.
Ich habe ein Makro generieren wollen, welches bei Nutzung des AutoFilters die Spalten, wo ein Kriterium/Auswahl getroffen wurde, gelb - zur besseren Übersicht - hervorhebt.
Dies hat auch fast geklappt. Zwei Dinge passen leider noch nicht ganz. Zum einen verursacht das Makro, dass die Überschriften der Spalten gelöscht werden, also der Inhalt der Zeile wo man den Autofilter setzen möchte, zum anderen muss ich jedes Mal den Code ins Tabellenblatt-Modul einfügen, diese Funktion sollte aber automatisch beim Programmstart geladen werden, so dass sie mit jeder Excel Datei verfügbar ist.
Für letzteres habe ich versucht, eine Funktion Auto_Open in einer Exceldatei zu speichern und diese Datei in den Ordner XLSTART zu kopieren, aber das will auch nicht funktionieren.
Bin für jegliche Hilfe dankbar.
Gruß,
Philipp
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Worksheet_Calculate()
Dim objF As Filter
Dim intC As Integer
If Me.AutoFilterMode Then
Me.AutoFilter.Range.Interior.ColorIndex = xlNone
For Each objF In Me.AutoFilter.Filters
intC = intC + 1
If objF.On Then
Me.AutoFilter.Range.Columns(intC).Interior.ColorIndex = 6
End If
Next
End If
End Sub