ich möchte gern die Zeilen einer Arbeitsmappe ausblenden, die ein bestimmtes Kriterium nicht erfüllen.
Der folgende Code tut das brav, ist aber viel zu langsam (ca. 10 sek für 1000 Zeilen)
Application.ScreenUpdating = False
For i = 7 To 1000
If Not Cells(i, 1) = "K" Then
Cells(i, 1).EntireRow.Hidden = True
End If
Next i
Range("Ansicht").Value = "Detailansicht"
Application.ScreenUpdating = True
Hat jemand eine Idee es effizienter zu lösen ?viele Grüße,
Gerd