Ich habe ein kleines Kassenbuch, das die Bestände in den oberen Zeilen darstellt. Nach Unten _ ab Zeile 10 beginnt dann die Möglichkeit die Einnahme- oder die Ausgabespalte etc. zu füllen. Nach Unten hin sind die weiteren Zellen (Wenn leer) mit "" leer gehalten. Allerdings sind diese dann nicht mehr leer, sondern beinhalten ja die Formeln. Ich möchte jedoch den Ausdruck bis zur letzten Zeile in der ein Wert steht ausdrucken. Ich habs damit versucht:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = "$A$1:$H" & ActiveSheet.UsedRange.SpecialCells( _
xlCellTypeLastCell).Row
End Sub
Da werden aber wieder alle Seiten ausgedruckt. Weiß jemand wie ich die letzte Zelle mit Wert (und nicht mit der Formel, die ja eigentlich bereits einen Wert ergibt) ermittle und in den Druckbereich eintrage?
Im Voraus schon mal lieben Dank