Druckbereich dynamisch festlegen
17.04.2019 09:43:26
Werner
ich habe ein kleines Problem und komme nicht weiter.
In einer 3 spaltigen Liste übernehme ich über eine Formel Daten, wenn vorhanden, von einem anderen Tabellenblatt. Dadurch ist die Liste zwar bis zum Ende mit Formeln und Formaten gefüllt aber nicht mit Daten.
Ich möchte nun gerne den Druckbereich nur auf die mit Daten gefüllten Zeilen festlegen.
Kann mir jemand helfen? Was muss ich ändern?
Mein bisheriger Code sieht so aus:
Sub Schaltfläche4_Klicken()
Dim strDruckbereich As String
Dim zm As Long
With ActiveSheet
strDruckbereich = .PageSetup.PrintArea
'Druckbereich dynamisch festlegen
zm = .Columns("G:I").Find(what:="*", searchdirection:=xlPrevious).Row
.Range("G4:I" & zm).Select
.PageSetup.PrintArea = Selection.Address
'Seitenansicht aufrufen
ActiveWindow.SelectedSheets.PrintPreview
'Druckbereich zurücksetzen
Application.OnTime Now + TimeSerial(0, 0, 1), "'PrintAreaReset """ & strDruckbereich & """'" _
End With
End Sub