Druckbereiche

Forumthread: Druckbereiche

Druckbereiche

28.08.2015 17:04:34

Daniel

Hallo zusammen,
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

Vielen Dank für die Hilfe!!

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Druckbereiche

29.08.2015 03:40:03

fcs
AW: Druckbereiche

29.08.2015 10:21:50

Daniel
AW: Druckbereiche

29.08.2015 10:52:47

Daniel

AW: Druckbereiche

29.08.2015 03:40:03

fcs

Hallo Daniel,
die Zeile

            .PrintArea = "$A$1136:$s$1159"

musst du löschen. Sie überschreibt die Einstellungen aus den If-Prüfungen.
Außerdem darf immer nur einer der 7 Werte im Array LrB %lt&%gt 0 sein, damit es funktioniert. Bei mehreren Werten verschieden von 0 wird immer nur der letzte von 0 verschiedene Wert berücksichtigt.
Gruß
Franz

AW: Druckbereiche

29.08.2015 10:21:50

Daniel

Hallo Frank,
gibt es eine Möglichkeit bis zu 6 der Werte = 0 zu haben und den letzten Bereich immer dabei zu haben? kann ich erst Variabel einen String bilden und diesen dannn als Druckbereich setzten?
Gruß Daniel

AW: Druckbereiche

29.08.2015 10:52:47

Daniel

Hallo Frank,
habe es jetzt so gelößt:


Dim Temp As String
If LrB(0)  0 Then
Temp = "$A$" & Array3(0) & ":$s$" & Array3(0) + (LrB(0)) * 3 - 1 & ", "
End If
If LrB(1)  0 Then
Temp = Temp & "$A$" & Array3(1) & ":$s$" & Array3(1) + (LrB(1)) * 3 - 1 & ", "
End If
If LrB(2)  0 Then
Temp = Temp & "$A$" & Array3(2) & ":$s$" & Array3(2) + (LrB(2)) * 3 - 1 & ", "
End If
If LrB(3)  0 Then
Temp = Temp & "$A$" & Array3(3) & ":$s$" & Array3(3) + (LrB(3)) * 3 - 1 & ", "
End If
If LrB(4)  0 Then
Temp = Temp & "$A$" & Array3(4) & ":$s$" & Array3(4) + (LrB(4)) * 3 - 1 & ", "
End If
If LrB(5)  0 Then
Temp = Temp & "$A$" & Array3(5) & ":$s$" & Array3(5) + (LrB(5)) * 3 - 1 & ", "
End If
If LrB(6)  0 Then
Temp = Temp & "$A$" & Array3(6) & ":$s$" & Array3(6) + (LrB(6)) * 3 - 1 & ", "
End If
Temp = Temp & "$A$1136:$S$1159"
With ActiveSheet.PageSetup
.PrintArea = Temp
End With

danke für die hilfe :)

Beliebteste Forumthreads (12 Monate)

Forumthread: Druckbereiche

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread