VBA nach Filterung kein Ergebnis

[MaMü11]

Hallo,

Ich habe ein Programm geschrieben, dass eine Tabelle filtert. Wenn es Ergebnisse gibt, dann sollen diese markiert und gelöscht werden.

Alles funktioniert wunderbar wenn es Ergebnisse gibt. Wenn es allerdings keine Ergebnisse gibt, dann wird alles gelöscht.

Wie kann ich eine Schleife o.ä. Programmieren, sodass erstmal überprüft wird ob nach der Filterung Ergebnisse vorliegen?

Danke für Eure Hilfe
Max

[Lucker11]

Hallo,

Ich habe ein Programm geschrieben, dass eine Tabelle filtert. Wenn es Ergebnisse gibt, dann sollen diese markiert und gelöscht werden.

Alles funktioniert wunderbar wenn es Ergebnisse gibt. Wenn es allerdings keine Ergebnisse gibt, dann wird alles gelöscht.

Wie kann ich eine Schleife o.ä. Programmieren, sodass erstmal überprüft wird ob nach der Filterung Ergebnisse vorliegen?

Danke für Eure Hilfe
Max

Versuchs mal mit

Code:

if Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)).SpecialCells(xlcelltypevisible).Count > 1 Then

[Kuwer]

Hallo Max,

mit Count kann man das prüfen.

Gruß Uwe

[Lucker11]

Genau

[MaMü11]

Dankeschön Euch beiden!