Hallo again
Ich habe im Netz folgendes Makro gefunden. Da ich "Option Explicit" an habe, erhalte ich die Meldung, dass Variablen nicht definiert sind.
Z.B. "AutoFilterMode"
Welche Variablen muss ich wie definieren, damit das Makro mit "Qption Explicit" läuft?
--------------------------------
Private Sub Worksheet_Calculate()
Dim f As Filter, i As Long
On Error Resume Next
If AutoFilterMode Then
For i = 1 To AutoFilter.Filters.Count
If AutoFilter.Filters(i).On Then
ActiveCell.CurrentRegion.Cells(1, i).Interior.ColorIndex = 3
Else
ActiveCell.CurrentRegion.Cells(1, i).Interior.ColorIndex = Null
End If
Next
Else
ActiveCell.CurrentRegion.Rows(1).Interior.ColorIndex = Null
End If
End Sub
-------------------
Danke für Eure Hilfe
Gruss
Theo
Ich habe im Netz folgendes Makro gefunden. Da ich "Option Explicit" an habe, erhalte ich die Meldung, dass Variablen nicht definiert sind.
Z.B. "AutoFilterMode"
Welche Variablen muss ich wie definieren, damit das Makro mit "Qption Explicit" läuft?
--------------------------------
Private Sub Worksheet_Calculate()
Dim f As Filter, i As Long
On Error Resume Next
If AutoFilterMode Then
For i = 1 To AutoFilter.Filters.Count
If AutoFilter.Filters(i).On Then
ActiveCell.CurrentRegion.Cells(1, i).Interior.ColorIndex = 3
Else
ActiveCell.CurrentRegion.Cells(1, i).Interior.ColorIndex = Null
End If
Next
Else
ActiveCell.CurrentRegion.Rows(1).Interior.ColorIndex = Null
End If
End Sub
-------------------
Danke für Eure Hilfe
Gruss
Theo