Vorab erst mal die besten Grüße aus dem stock finsteren Arnum.
Ich bräuchte mal eine Unterstützung in Bezug auf das Prüfen ob alle Zellen im rage leer sind.
Mein Versuch:
If WBZ.Worksheets("Zukauf").Range("A6:D9").SpecialCells(xlCellTypeBlanks).Count = 16 Then WBZ.Sheets("Zukauf").Delete
Funktioniert manchmal, jedoch manchmal auch nicht.
Leider kann ich das Problem ohne eure Hilfe nicht lösen.
Vielen dank schon mal im Voraus.
Gruß
Hermann