ist es möglich eine gefilterte Tabelle alle Einträge zu löschen, aber nicht die gesamte Zeile, sondern nur den Bereich z.B. von SpalteB bis SpalteF.
Also von z. B. 14 Zeilen 5 löschen mit Selection.Delete Shift:=xlUp
Gruss
Peter
Intersect(Range("A1").CurrentRegion, Range("A1").CurrentRegion.Offset(1, 0))
die sichtbaren Zellen dann mit SpecialCells:
Intersect(Range("A1").CurrentRegion, Range("A1").CurrentRegion.Offset(1, 0)).Specialcells(xlcelltypevisible)
Gruß Daniel