Excel : Zeilen löschen per vba Code
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() >-------
|