Sub Druckbereich_festlegen()
Range("A3:E50").Select
ActiveSheet.PageSetup.PrintArea = "$A$3:$E$50"
End Sub
Diesen möchte ich nun in meinen Button einbinden, welcher schon folgenden Code hat:
Private Sub CommandButton1_Click()
BereichLoeschenInhalt "C17:D17"
BereichLoeschenZeilen 26, 500
BereichLoeschenInhalt "B25:D25"
AbfrageStarten "D7:D8"
AbfrageStarten "B25:D25"
AbfrageStarten "B16:B19"
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
AutoFilterSetzen "B24:D24"
End Sub
Kann mir jemand helfen?
Vielen Dank schon mal im Vorraus!