Herbers Excel-Forum - das Archiv

Filter sichtbar machen

Bild

Betrifft: Filter sichtbar machen
von: Urmel-Online

Geschrieben am: 15.02.2005 17:14:34
Hi all,
ich habe hier im Forum eine tolle Idee zur Sichtbarmachung einer Filterung gefunden. Diese funktioniert auch so lange, bis ich in eine andere Tabelle gehen und dann wieder auf die Tabelle mit diesem VBA-COde gehe.
Es kommt dann die Fehlermeldung: Fehler beim Kompilieren
Der Code steht in der Tabelle (nicht im Modul):

Option Explicit
Sub Worksheet_Activate()
[IV65536].FormulaLocal = "=ZUFALLSZAHL()"
End Sub
Private Sub Worksheet_Calculate()
Dim F As Integer, aSh As Worksheet
Set aSh = ActiveSheet
Application.EnableEvents = True
Rows(1).Interior.ColorIndex = xlNone
If aSh.AutoFilterMode = False Then
Application.EnableEvents = False
Else
For F = 1 To aSh.AutoFilter.Filters.Count
If aSh.AutoFilter.Filters(F).On Then
aSh.Cells(1, F).Interior.ColorIndex = 5
End If
Next
End If
Application.EnableEvents = True
End Sub

Sub Worksheet_Deactivate()
[IV65536].FormulaLocal = ""
End Sub

Wo liegt das Problem ? Muß ich die Makrogrundeinstellung ändern etc. ?

Vielen Dank für Eure Vorschläge...
Urmel
Bild

Betrifft: AW: Filter sichtbar machen
von: Knut
Geschrieben am: 15.02.2005 18:09:22
Der Fehler ist nicht nachvollziehbar.
Knut
 Bild
Excel-Beispiele zum Thema "Filter sichtbar machen"
Dateinamen filtern Summe gefilterter Zeilen
Filtern einer Zahl aus einer Zeichenfolge Gefilterte Daten in eine ListBox einlesen
Gefilterte Daten ohne Zwischenablage übertragen Gefilterte Daten in neues Tabellenblatt übertragen
Autofilter auch mit Ziffern von Zahlen Daten eines bestimmten Jahres filtern
Zellenwert als Autofilter-Kriterienwert Sichtbare Blätter drucken