Tabellenblatt Drucken - dynamischer Druckbereich
10.12.2016 10:12:52
sema
ich möchte ein Tabellenblatt drucken, das je nach "Trefferliste" verschieden lang werden kann. Befüllt wird die Tabelle mit Matrixformeln.
Mein VBA-Code:
Dim Ende As Long
Ende = 65536
If Range("I65536") = "" Then Ende = Range("I65536").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$" & Ende
Application.Dialogs(xlDialogPrint).Show
End Sub
Leider schlägt das "" nicht an...liegt es werden alle Seiten - auch die leeren gedruckt...bis zum Ende der Matrixformeln.
Matrixformel:
{=WENN(ZEILE(S19)>ANZAHL2(S:S);"";INDEX(S:S;KKLEINSTE(WENN(S$1:S$10000<>"";ZEILE($1:$10000)) ;ZEILE(S19)))) }
Danke vielmals für einen Tipp !!