Ich bräuchte mal eure Hilfe und zwar habe ich eine Tabelle wo in Zeile 2 Überschriften stehen und dort wird ein Autofilter von Spalte A bis K gesetzt.
Nun möchte ich wenn der Autofilter aktiviert wurde die ersten 17 Zeilen löschen. Ich habe schon ein Ansatz aber er löscht alles.
Was muß ich im Code ändern das er nur die ersten 17 Zeilen löscht
Danke für eure Hilfe im voraus
Hier mein Ansatz:
With Worksheets("Hilfstabelle")
For lngZ = .AutoFilter.Range.Row + 1 To .AutoFilter.Range.Rows.Count + 1 - .AutoFilter.Range.Row + 1
lngVisCount = lngVisCount + .Rows(lngZ).Hidden + 1
If lngVisCount = 17 Then Exit For
Next
If lngVisCount > 0 Then .Range(.Cells(.AutoFilter.Range.Row + 1, 1), .Cells(lngZ, 8)).Delete
End With