mit einem Makro blende ich in dem Bereich A11:A110 alle Zeilen aus, in denen ein x eingetragen ist. Das funktioniert mit folgendem Code auch soweit, bis auf die Zeile 11, in der ebenfalls das x steht, jedoch die Zeile nicht ausgeblendet wird. Nun habe ich den Bereich auf A10:A110 geändert, ohne den gewünschten Erfolg. Nun brauche ich Eure Hilfe, wie ich den Code anpassen muss, um auch die Zeile 11 auszublenden. Vielen Dank im Voraus und Gruß, Marko
Sub AnsAnp_X_20()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Sheets("Tabelle20").Range("A11:A110").AutoFilter Field:=1, Criteria1:="x", _
visibledropdown:=False
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub