gibt es eine möglichkeit in einem excelsheet in dem ich mehrere autofilter habe, deren hintergrundfarbe zu verändern wenn ich den filter setzte, ohne einen commandbutton zu drücken?
besten dank im voraus
guenti
gibt es eine möglichkeit in einem excelsheet in dem ich mehrere autofilter habe, deren hintergrundfarbe zu verändern wenn ich den filter setzte, ohne einen commandbutton zu drücken?
besten dank im voraus
guenti
Option Explicit
Private Sub Workbook_Open()
start_Überwachung
End Sub
Private Sub Workbook_Deactivate()
stop_Überwachung
End Sub
folgenden Code in ein "Normales Modul"
Option Explicit
Public Überwachungstimer As Date
Public Sub start_Überwachung()
Dim rAddress As String
Überwachungstimer = Time + TimeSerial(0, 0, 3)
Application.OnTime Überwachungstimer, "start_Überwachung"
rAddress = Worksheets(1).AutoFilter.Range
If Worksheets(1).FilterMode Then
Range(rAddress).Interior.ColorIndex = 19
Else
Range(rAddress).Interior.ColorIndex = 0
End If
End Sub
Public Sub stop_Überwachung()
On Error Resume Next
Application.OnTime Überwachungstimer, "start_Überwachung", Schedule:=False
End Sub
Gruß
Nepumuk
Public Sub start_Überwachung()
Dim rAddress As String
Überwachungstimer = Time + TimeSerial(0, 0, 3)
Application.OnTime Überwachungstimer, "start_Überwachung"
*****
rAddress = Worksheets(1).AutoFilter.Range
*****
If Worksheets(1).FilterMode Then
Range(rAddress).Interior.ColorIndex = 19
Else
Range(rAddress).Interior.ColorIndex = 0
End If
End Sub
an was das wohl liegt??
gruss und merci im voraus
guenti