AW: Zeilen Löschen bei bestimmtem Wert
12.10.2022 13:44:22
Daniel
HI
probiers mal so.
Wenn die leeren Zellen in AF echte Leerzellen sind, könnte man sie so löschen:
Columns(32).SpecialCells(xlcelltypeblanks).EntireRow.Delete
für das RemoveDuplicates kann man auch auch problemlos ganze Spalten angeben:
Range("A:FK").RemoveDuplicates Columns:=65, Header:=xlNo
wenn du den Autofliter nutzen willst, kannst du auch die ExcelAutomatik nutzen, um Zellbereiche zu ermitteln.
With Range("A1").CurrentRegion
.AutoFilter Field:=32, Criteria1:="="
.Offset(1, 0).SpecialCells(xlcelltyevisible).Delete Shift:=xlup
.Autofilter
end With
das Currentregion ermittelt von der angegebenen Zelle aus den Zellbereich, der eine komplette Tabelle ergibt (kannst du in Excel mit der Tastenkombination STRG+A nachvollziehen.
in der WITH-Klammer definiert man einen Zellbereich, welchen man in der Folge verwenden kann, ohne ihn immer hinschreiben zu müssen, überall dort, wo ein Ausdruck mit dem Punkt beginnt, wird dann dieser Zellbereich eingesetzt.
das Offset(1, 0) verhindert dann, dass die Überschriftenzeile mit gelöscht wird, dafür wird die darunter liegende Zeile gelöscht, was aber kein Problem darstellen sollte, wenn unter der Tabelle keine anderen Daten mehr stehen.
Gruß Daniel