ich hab folgendes Problem, ich habe eine Tabelle Bei der ich den Druckbereich variabel gestalte. Zusätzlich möchte ich aber das ab einer bestimmten Seitenanzahl was anderes im Kopf steht. Dazu habe ich einen ansatz hier im archiv gefunden und den auch schon etwas angepasst. Da ich ja aber nicht von anfang an weiß wie viele Seiten den ersten Kopf tragen sollen komm ich da grade nicht richtig weiter. Vielleicht hat hier ja jemand eine Idee.
Druckbereich:
Sub druckbereichtab100000000()
Application.ScreenUpdating = False
If Range("F29") = "00" Then
If Range("M41") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$71"
ElseIf Range("M53") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$113"
ElseIf Range("M65") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$155"
ElseIf Range("M77") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$197"
ElseIf Range("M83") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$239"
End If
End If
If Range("G29") = "00" Then
If Range("M40") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$71"
ElseIf Range("M52") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$113"
ElseIf Range("M64") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$155"
ElseIf Range("M76") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$197"
ElseIf Range("M83") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$239"
End If
End If
If Range("H29") = "00" Then
If Range("M39") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$71"
ElseIf Range("M51") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$113"
ElseIf Range("M63") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$155"
ElseIf Range("M75") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$197"
ElseIf Range("M83") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$239"
End If
ElseIf ("H29") "00" Then
If Range("M38") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$71"
ElseIf Range("M50") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$113"
ElseIf Range("M62") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$155"
ElseIf Range("M74") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$197"
ElseIf Range("M83") = 0 Then
ActiveSheet.PageSetup.PrintArea = "$AA$30:$AW$239"
End If
End If
Zum Druckbereich ist zu sagen dass ich hier noch einen weiteren anfüge der eben dann den _
anderen Kopf tragen soll.
Kopfzeile:
Sub Drucken()
'Ansatz von Ramses leicht modifiziert
Dim iPage As Integer
For iPage = 1 To ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
If iPage = 1 Then
.LeftHeader = _
"&""Formata Bold,Standard""&20KÜGLER &""Formata Condensed,Standard""& _
16Ingenieure"
.CenterHeader = "&""Swis721 Cn BT,Fett""&12Abschaltbedingungen, " & Sheets(" _
Stammdaten").Cells(16, 16).Value & vbCrLf & ActiveSheet.Cells(3, 3).Value
.RightHeader = "&D"
Else
.LeftHeader = _
"&""Formata Bold,Standard""&20KÜGLER &""Formata Condensed,Standard""& _
16Ingenieure"
.CenterHeader = "&""Swis721 Cn BT,Fett""&12Abschaltbedingungen, " & Sheets(" _
_
Stammdaten").Cells(17, 16).Value & vbCrLf & ActiveSheet.Cells(3, 3).Value
.RightHeader = "&D"
End If
End With
Next iPage
End Sub
Vielen Dank im Vorraus und mit freundlichen Grüßen
euer Horst