Filter von einer Tabelle löschen
15.11.2018 11:41:58
einer
in diesem Script
Private Sub Workbook_Open()
Dim wksSheet As Worksheet
For Each wksSheet In ThisWorkbook.Worksheets
With wksSheet
If .AutoFilterMode Then
If .FilterMode Then
.ShowAllData
End If
End If
End With
Next wksSheet
Leider komme ich nicht dahinter, was den Fehler auslöst, deshalb wäre die erste Eingrenzung, das Script auf nur das Tabellenblatt "Übertrag" zu begrenzen.
Kann mir bitte jemand helfen, wie ich das Script umschreiben muss.
Vielen Dank
Hans