Readdy Write  
0,00 €
Your View Money
Views: Count
Self 20% 0
Your Content 60% 0

Users by Links 0
u1*(Content+Views) 10% 0
Follow-Follower 0
s2*(Income) 5% 0

Count
Followers 0
Login Register as User

Excel : Zeilen löschen per vba Code

19.02.2020 (👁5304)


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() >-------