Das folgende Beispiel zeigt wie man per vba Makro-Code Zeilen in einem Excel Arbeitsblatt automatisch löschen kann
Per vba Code heißt das
'ActiveSheet.Range("$C$2:$Z$31757").AutoFilter Field:=1, Criteria1:="=Produkt B", Operator:=xlOr, Criteria2:="=Produkt C" oder ActiveSheet.Range("$C$2:$Z$31757").AutoFilter Field:=1, Criteria1:=Array("Produkt B", "Produkt C"), Operator:=xlFilterValues |
Im ersten Schritt wird ein Filter über einen Bereich gelegt und nach Werten gefiltert
Anschliessend wird über alle gefilterten Zeilen gelöscht
'Selection.Delete Shift:=xlUp
|
Vba Makro Code als Beispiel
Option Explicit On
Sub Zeilen_loeschen_ueber_Filter() '------< Zeilen_loeschen_ueber_Filter() >------- Tabelle2.Activate Range("c2").Select 'ActiveSheet.Range("$C$2:$Z$31757").AutoFilter Field:=1, Criteria1:="=Produkt B", Operator:=xlOr, Criteria2:="=Produkt C" ActiveSheet.Range("$C$2:$Z$31757").AutoFilter Field:=1, Criteria1:=Array("Produkt B", "Produkt C"), Operator:=xlFilterValues Rows("3:10000").Select 'Selection.Delete Shift:=xlUp 'Selection.ClearContents '------</ Zeilen_loeschen_ueber_Filter() >------- End Sub_ueber_Filter() >------- |