Druckbereiche
28.08.2015 17:04:34
Daniel
ich muss euch mal wieder um hilfe bitten. Ich möchte im code unten die druckbereiche definieren wenn die Variable aus dem array nicht 0 ist.
Er erhält mir aber nur den letzten Druckbereich. wo ist meine fehler?
set print area Detailaufstellung
With Wkb2.Worksheets("3 Detailaufstellung").PageSetup
If LrB(0) 0 Then
.PrintArea = "$A$" & Array3(0) & ":$s$" & Array3(0) + (LrB(0)) * 3 - 1
End If
If LrB(1) 0 Then
.PrintArea = "$A$" & Array3(1) & ":$s$" & Array3(1) + (LrB(1)) * 3 - 1
End If
If LrB(2) 0 Then
.PrintArea = "$A$" & Array3(2) & ":$s$" & Array3(2) + (LrB(2)) * 3 - 1
End If
If LrB(3) 0 Then
.PrintArea = "$A$" & Array3(3) & ":$s$" & Array3(3) + (LrB(3)) * 3 - 1
End If
If LrB(4) 0 Then
.PrintArea = "$A$" & Array3(4) & ":$s$" & Array3(4) + (LrB(4)) * 3 - 1
End If
If LrB(5) 0 Then
.PrintArea = "$A$" & Array3(5) & ":$s$" & Array3(5) + (LrB(5)) * 3 - 1
End If
If LrB(6) 0 Then
.PrintArea = "$A$" & Array3(6) & ":$s$" & Array3(6) + (LrB(6)) * 3 - 1
End If
.PrintArea = "$A$1136:$s$1159"
End With