Löschen einer Zeile nach flexiblem Kriterium in C3
30.03.2015 19:31:57
Hans
Hallo ich habe eine Frage zu einem Makro von mir und würde um eure Hilfe bitten. Ich möchte nach einem Wert, der in Zeile "C3" steht filtern und die entsprechende Zeile löschen. Dieser Wert kommt in 2 Zeilen in der Spalte C vor. Jedoch soll nur die obere der beiden Zeilen gelöscht werden.
Mein Versuch mittels Aufzeichnung schaut wiefolgt aus.
Range("C3").Select
Selection.Copy
ActiveSheet.Range("$C$9:$BL$37").AutoFilter Field:=1, Criteria1:= _
"E1_BD_0051"
Rows("24:24").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
ActiveSheet.ShowAllData
Vielen Dank im voraus