Hallo,

benötige Hilfe.

Möchte gerne einen Bereich selektieren in dem in Spalte N kein Eintrag ist. Vorab wurde die Tabelle sortiert, das die Zeilen ohne Eintrag in N untereinander stehen. Danach soll dieser Bereich ausgedruckt werden.

Dazu nutze ich folgendes Makro:

' Daten Sortieren.....
von = Range("N65536").End(xlUp).Row
bis = Range("A65536").End(xlUp).Row
If von < bis Then Range(von + 1 & ":" & bis).Select

Selection.PrintOut Copies:=1, Collate:=True


Das funktioniert auch super. Jetzt kann es vorkommen, das in allen Zeilen in N etwas steht. Indiesem Fall will dieses Makro 1600 leerzeilen drucken und das ist mein Problem.

Wie kann ich das verhindern?

Schöne wäre ´ne Message: Keine Daten zum Drucken, oder schlicht eine :ExitSub

https://www.herber.de/bbs/user/2136.xls

Danke für Eure Hilfe.

Sascha