Filterergebnis partiell löschen
24.10.2007 13:39:00
Melanie
ich habe eine Frage bezüglich eines Codes und zwar möchte ich eine Auswahl des Autofilters, sprich das Filterergebnis löschen, allerdings nur partiell.
Heißt konkret, ich habe eine Tabelle in der die Spalten A bis AE gefüllt sind. Jetzt will ich nach der Spalte J filtern und dann die Einträge in den Spalten P bis AE im Bereich des aktuell gefilterten Ergebnisses löschen. Das ganze mache ich um die Dateigröße etwas zu minimieren.
Mit dem unten angehängten Code kann das komplette Ergebnis des Autofiltes gelöscht werden. Kann das eventuell jemand für mich anpassen?
Im Voraus besten Dank!!
Grüße, Melanie
Selection.AutoFilter Field:=10, Criteria1:="P"
With ActiveSheet.AutoFilter.Range.Offset(1)
.Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1).EntireRow.Delete _
shift:=xlUp
End With