Guten Morgen Zusammen,
ich habe folgendes Druck-Makro:
Private Sub CommandButton13_Click()
Dim s
Dim z As Long
Application.ScreenUpdating = False
Range("B7").Select
Application.Calculation = xlCalculationManual
("b:b,k:k,l:l,m:m,p:p,r:r,s:s,t:t,v:v,y:y,z:z,AA:AA,AB:AB,AC:AC,AD:AD,AE:AE...