auf Filternutzung reagieren
Detlef
ich habe ein Arbeitsblatt mit Berechnen manuell. Nun möchte ich einen Hinweistext in eine Zelle schreiben, wenn der eingeblendete Autofilter benutzt wird. Damit sich die Teilerergebnisse aktualisieren bzw. Aufforderung eine Neuberechnung durchzuführen. Mit Worksheet_Change bekomme ich das nicht hin.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrorHandler
Application.EnableEvents = False
Application.StatusBar = ">>>"
Range("K13").Value = ">>>"
Application.EnableEvents = True
Exit Sub
ErrorHandler:
MsgBox "Fehler"
Application.EnableEvents = True
End Sub
Gruß Detlef