Filter sichtbar machen
15.02.2005 18:14:34
Urmel-Online
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
Anzeige