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)
Das Ergebnis ist in diesem Fall $H$36:$BV$76Ich 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
Ob die Formel jetzt als Code übernommen wird oder einfach der Wert aus C32 als Range verwendet wird ist mir dabei egal.Ich hoffe ihr könnt mir wieder aus der Patsche helfen.
Danke und lg
Mats