Hallo zusammen,
in meiner Tabelle ändert sich stetig der Druckbereich durch Einträge in immer der nächsten Spalte.
Im Prinzip ist er immer so groß:blush:A$1:blush:?$27.
Es verändert sich also immer das Fragezeichen.
Mit diesem Makro hat mir ein netter www-ler geholfen, immer die letzte Zelle in Spalte 6 anzusteuern:
„Cells(6, Columns.Count).End(xlToLeft).Select“
Mit diesem hier definiert man (ich per Makro-Aufzeichnung) den Druckbereich:
"ActiveSheet.PageSetup.PrintArea = „$A$1:blush:D$27"“
Ist es wohl möglich, diese beiden Befehle irgendwie miteinander zu verbinden, so dass Excel das Fragezeichen mit dem Spaltenergebnis ersetzt und sich der Druckbereich jeweils anpasst?
Oder gibt es eine andere Möglichkeit, mein Problem zu lösen?
Freundliche Grüße
Jorge
Hallo Jorge,
du könntest diesen Makrocode verwenden:
Sub DruckbereichAnpassen()
With ActiveSheet
.PageSetup.PrintArea = .UsedRange.Address
End With
End Sub
Gruß
smalbop
Nachfrage
Hallo Jorge,
ist die Endspalte immer einstellig, also A-Z?
Gruß
Reinhard
Hallo Reinhard,
nein, es ist eher der Fall, dass es über AA hinausreicht.
Gruß
Jorge
Hallo smalbop,
ich werde es morgen auf der Arbeit ausprobieren. Danke.
Gruß
Jorge
leider für meine Anwendung nicht geeignet.
Hallo smalbop,
meine Zeilen sind bis Spalte HQ (willkürlich gewählt) mit Rahmen formatiert. So werden aus eigentlich nur 2 Seiten Druckbereich mit deinem Makro 32 Seiten. A bisserl viel.
Trotzdem habe ich mir dein Makro gespeichert, weil ich es für andere Anwendungen gut gebrauchen kann.
Vielen Dank.
Hast du wohl noch eine andere Idee zu meiner Frage?
Freundliche Grüße
Jorge
Hallo Jorge
Hast du wohl noch eine andere Idee zu meiner Frage?
Schon.
Ersetze mal die mittlere Codezeile durch
.PageSetup.PrintArea = .Cells(1).CurrentRegion.Address
Dann wird alles zum Druckbereich, was von A1 ausgehend als rechteckiger Block zusammenhängt, bloße Rahmen bleiben dann unbeachtet. Klappt es jetzt?
Gruß
smalbop
Hallo smalbop,
vielen Dank! Klappt super. Mir ist das eine große Hilfe.
Freundliche Grüße
Jorge
in meiner Tabelle ändert sich stetig der Druckbereich durch
Einträge in immer der nächsten Spalte.
„Cells(6, Columns.Count).End(xlToLeft).Select“
"ActiveSheet.PageSetup.PrintArea = „$A$1:blush:D$27"“
Ist es wohl möglich, diese beiden Befehle irgendwie
miteinander zu verbinden, so dass Excel das Fragezeichen mit
dem Spaltenergebnis ersetzt und sich der Druckbereich jeweils
anpasst?
Hallo Jorge,
probiers mal so:
Sub tt()
Dim lngSpa As Long, strSpa() As String
lngSpa = Cells(6, Columns.Count).End(xlToLeft).Column
strSpa = Split(Cells(6, lngSpa).Address, „$“)
ActiveSheet.PageSetup.PrintArea = „$A$1:blush:“ & strSpa(1) & „$27“
End Sub
Gruß
Reinhard