ich habe folgendes Problem ich möchte 2 Druckbereich erstellen ich hab folgenden Code:
Dim z As String
ACTIVESHEET.Select
If Range("F172") = "00" Then
If Range("M184") = 0 Then
z = "$BA$30: $BW$71"
ElseIf Range("M196") = 0 Then
z = "$BA$30: $BW$113"
ElseIf Range("M208") = 0 Then
z = "$BA$30: $BW$155"
ElseIf Range("M220") = 0 Then
z = "$BA$30: $BW$197"
ElseIf Range("M226") = 0 Then
z = "$BA$30: $BW$239"
End If
End If
If Range("G172") = "00" Then
If Range("M183") = 0 Then
z = "$BA$30: $BW$71"
ElseIf Range("M195") = 0 Then
z = "$BA$30: $BW$113"
ElseIf Range("M207") = 0 Then
z = "$BA$30: $BW$155"
ElseIf Range("M219") = 0 Then
z = "$BA$30: $BW$197"
ElseIf Range("M226") = 0 Then
z = "$BA$30: $BW$239"
End If
End If
If Range("H172") = "00" Then
If Range("M182") = 0 Then
z = "$BA$30: $BW$71"
ElseIf Range("M194") = 0 Then
z = "$BA$30: $BW$113"
ElseIf Range("M206") = 0 Then
z = "$BA$30: $BW$155"
ElseIf Range("M218") = 0 Then
z = "$BA$30: $BW$197"
ElseIf Range("M226") = 0 Then
z = "$BA$30: $BW$239"
End If
ElseIf ("H172") "00" Then
If Range("M181") = 0 Then
z = "$BA$30: $BW$71"
ElseIf Range("M193") = 0 Then
z = "$BA$30: $BW$113"
ElseIf Range("M205") = 0 Then
z = "$BA$30: $BW$155"
ElseIf Range("M217") = 0 Then
z = "$BA$30: $BW$197"
ElseIf Range("M226") = 0 Then
z = "$BA$30: $BW$239"
End If
End If
Application.ScreenUpdating = False
ACTIVESHEET.PageSetup.printarea = "$AA$30:$AW$71" & z
es erscheint folgende Fehlermeldung, "die Print Area Eigenschaft des PageSetup-Objrktes kann nicht festgelegt werden.
ich hab auch schon folgendes versucht:
Dim z As Range
ACTIVESHEET.Select
If Range("F172") = "00" Then
If Range("M184") = 0 Then
set z = Range("$BA$30: $BW$71")
.
.
.
.
Application.ScreenUpdating = False
ACTIVESHEET.PageSetup.printarea = "$AA$30:$AW$71" & z
aber dort erscheint die Fehlermeldung "Typen unverträglich
bei
ACTIVESHEET.PageSetup.printarea = "$AA$30:$AW$71" & z
vielen Dank im Vorraus für eure Mühe
Grüße
Horst