druckbereich dynamisch festlegen
23.03.2019 18:07:47
Pfeiler
ich habe eine Tabelle, die sich in ihrer Größe je nach Anzahl der Eingaben ändert.
Der auszudruckende Bereich geht von O1 bis Z****. d.h.: die Spalte Z ist immer gleich, nur die Zeile ändert sich mit der Anzahl der Benutzereinträge und ist unvorhersehbar.
die erste leere Zelle lässt sich ja mit FIND("") leicht finden, weil mir das find
eine Range-Variable zurückgibt. Auch lässt sich die Zeilennummer leicht aus der zusammengesetzten Range herauskitzeln.
Wie bringe ich diese Daten in der Festlegung eines Druckbereichs unter ?
auf deutsch - welche Variablen schreibe ich in die Anweisung "PageSetup.PrintArea = ............ ? in x sollte ja eigentlich alles drinstehn, weile ja x ein Range ist. Nur frisst die PageSetup die nicht.
Ich habe schon gemerkt, dass "FIND" nicht besonders beliebt zu sein scheint, aber es funktioniert tadellos um zB neue Daten in die erste leere Zeile einzutragen oder Spalten automatisch abzurechnen. Ich würde wirklich nicht gern auf find verzichten. Vielleicht eine Anfängermacke, da man ja immer den leichtesten Trampelpfad benuzt.
Private Sub CommandButton4_Click()
Dim x As Range
Dim y
Dim Ende_DB
Dim Bereich
Set x = Sheets(1).Range("Z:Z").Find("")
Ende_DB = x.Row
y = CInt(Ende_DB)
Debug.Print Ende_DB
End Sub
Wer weiss weiter ?
mit freundlichen Grüßen
Alfred Pfeiler
Anzeige