Dynamischer Druckbereich mit VBA
03.04.2016 00:09:37
Mats
nach langem suchen im Netz habe ich zwar viele Lösungsansätze für das oben beschriebene Problem gefunden aber keiner funktioniert für mich (bzw. schaffe ich es nicht ihn anzupassen).
Ich will einen dynamischen Druckbereich mit VBA. Als Formel hab ich den Druckbereich bereits in der Zelle C32 stehen.
="$H$36:"&ADRESSE(76;MAX($H$32:$CL$32)+2)
Ich habe versucht den Bereich als Variable zu übernehmen aber ich weiß nicht wie das geht.
Der Code ohne die Variable:
Sub DruckBereichFestlegen()
With ActiveSheet.PageSetup
.PrintArea = "$H$36:$BQ$74"
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
Ich hoffe ihr könnt mir wieder aus der Patsche helfen.
Danke und lg
Mats