Hallo zusammen!
Würde gerne über VBA Daten in der Range A2 bis H ( Endzeile offen, da sich Menge der Datensätze verändert) abhängig von einem Kriterium in Zelle J1 löschen.
In Spalte A stehen Zahlen von 1 bis 10. Abängig von der Zahl die ich in J1 eingebe sollen alle Zeilen gelöscht werden bei welchen in Spalte A eine kleinere oder die selbe Zahl wie in J1 steht.
Folgend der Code den ich bisher geschrieben habe.
Sub Auswertung()
With ActiveSheet
.AutoFilterMode = False
With Range("A1", Range("A" & Rows.Count).End(xlUp))
.AutoFilter 1, Criteria1:="<=" & CDbl(ActivesSheet.Cells(1, 10).Value)
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
End With
End Sub
Leider funktioniert der Code bisher nicht. Würde mich freuen wenn mich jemand auf den Fehler aufmerksam macht.
Viele Grüße
Christian |