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

Beiträge aus den Excel-Beispielen zum Thema "Filter sichtbar machen"