Ich habe eine Adressliste die ich u.A. nach runden Geburtstagen sortiere.
Dafür habe ich einer Hilfspalte Formeln erstellt die nur das Alter also zB 21 /45 /60 /50/ 28 anzeigen
Nach dem Sortieren drucke ich die Liste wenn nötig aus.
Dazu möchte ich für den Ausdruck den Druckbereich so wählen, dass nur die
runden Geburtstage gedruckt werden
Die Sortierung mache in natürlich vor dem bestimmen des Druckbereichs
Somit stehen alle runden Geburtstage am Anfang der Liste
Für die Ausdrucke, die den ganzen Tabellenbereich betreffen habe ich das so gelösst:
'alter Bereich zurückstellen
ActiveSheet.PageSetup.PrintArea = ""
'Neuer Bereich setzen
ActiveSheet.PageSetup.PrintArea = _
Range(Cells(6, 3), Cells(Cells(65536, 2).End(xlUp).Row, 14)).Address
Was muss ich für den Druckbereich der runden Geburtstag setzen
'alter Bereich zurückstellen
ActiveSheet.PageSetup.PrintArea = ""
'Neuer Bereich setzen
ActiveSheet.PageSetup.PrintArea = _
Range(Cells(6, 3), (?).Address
Besten Dank für eure Hilfe
Gruss Hugo