Autofillter bei Sheets_Deaktivate ausschalten
Dietmar
Ich habe auf den nachfolgenden Code von Luschi bekommen. Er funktioniert prima.
Durch einen Button habe ich dafür gesorgt, dass der Autofilter auf dem betreffenden Tabellenblatt in die Zeile 32 (Überschriften) gelegt wird.
Das bedeutet, um nun nicht die Zeilen darüber ebenfalls bei der Ausführung den nachfolgenden Codes einzublenden, müsste dieser so angepasst werden, dass er erst den Bereich ab Zeile 33 anspricht (zwischen Zeile 2 und 32 sind nämlich auch 10 Zeilen ausgeblendet, wo sich Hilfszeilen befinden).
Kann mir jemand sagen, wie ich das bewerkstelligen kann?
Vielen Dank!
Dietmar aus Aachen
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Dim wsh As Worksheet
For Each wsh In Sheets(Array("Tabelle1"))
On Error Resume Next
wsh.ShowAllData
On Error GoTo 0
Next wsh
Set wsh = Nothing
End Sub
Anzeige