ich habe ein kleines Problem mit meinem Ausdruck.
Ich möchte gern das die Tabelle im Hochformat nebenander
ausgedruckt wird.
Die Tabelle wird so makiert:
Dim z As Long
Range("B2").Select
z = Range("B2").End(xlDown).Row
ActiveSheet.Range(Cells(2, 2), Cells(z, 6)).Select
der 1. Druckbereich soll enden, bis in der Spalte 3 die letzte 1 steht.
Danach soll der Rest bis Ende direkt daneben ausgedruckt werden.
mfg walli