Hallo,

ich habe folgendes Makro mit dem ein Druckbereich festgelegt wird und dann die Druckvorschau geöffnet wird.

Sub Druckbereich_Februar()

     ActiveSheet.PageSetup.PrintArea = "$A$34:$G$62"
     Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"

End Sub
 

Ich brauche das Makro, um aus einer Arbeitszeittabelle, die in Spalte A fortlaufend vom 1.1.-31.12. die Tag hat, einen Ausdruck nur eines einzelnen Monats auswählt. In dem obigen Beispiel fängt der Febuar in Zeile 34 an und endet in Zeile 62. Wenn es keine Schaltjahre gäbe, könnte ich hier die entsprechenden Zeilen der Monate von Hand eingeben. Weil aber im Schaltjahr der Februar 29 Tage hat verschiebt sich alles. Ich brauche also eine Abfrage, dass das Makro erkennt in welcher Zeile der Februar anfängt und wo er aufhört, das als Druckbereich fest legt und die Druckvorschau öffnet. 

Hat Jemand eine möglichst einfach Lösung. Bin kein VBA-Programmierer sonst hätte ich vielleicht eine Lösung.

Frieder