Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Excel VBA - Durch -Union- verbundene Bereiche ohne Seitenumbruch drucken

Mitglied: ovu-p86

ovu-p86 (Level 1) - Jetzt verbinden

12.04.2013, aktualisiert 04:32 Uhr, 3506 Aufrufe, 4 Kommentare

Hallo,

Habe ein Tabellenblatt das zwei, mit Namen benannte, Bereiche hat. Beide Bereiche sind horizontal versetzt.

Beide Bereiche möchte ich auf einer Seite ausdrucken.
Hab die Bereiche zum Drucken mit folgendem Code zusammengefasst.

01.
Dim r1 As Range, r2 As Range, myMultiAreaRange As Range 
02.
Set r1 = Range("Bereich1") 
03.
Set r2 = Range("Bereich2") 
04.
Set myMultiAreaRange = Union(r1, r2) 
05.
myMultiAreaRange.Select 
06.
Selection.PrintOut Copies:=1, Preview:=True, Collate:=True

Problem:

Obwohl beide Bereiche sowohl in Höhe, wie auch jeder Bereich für sich in der Breite, auf eine Seite passen, bekomme ich einen Seitenwechsel.

Kurze Skizze zur Verdeutlichung:

7b87820c4eefeec8b57f610ee3e97ad6 - Klicke auf das Bild, um es zu vergrößern


Frage:

Wie kann ich den Seitenumbruch vermeiden?

Für Lösungen bin ich dankbar.

Gruss
Uwe
Mitglied: 76109
12.04.2013 um 11:10 Uhr
Hallo ovu-p86!

Durch Union ändert sich ja nichts an der Blattaufteilung.

Kopiere die Bereiche in ein neues Sheet in Spalte A z.B.:
01.
Range("Bereich1").Copy Sheets("Tabelle2").Range("A5") 
02.
Range("Bereich2").Copy Sheets("Tabelle2").Range("A15") 
03.
 
04.
Sheets("Tabelle2").PrintOut Copies:=1, Preview:=True, Collate:=True
Gruß Dieter
Bitte warten ..
Mitglied: ovu-p86
12.04.2013 um 20:26 Uhr
Hallo Dieter,

dank für deinen Vorschlag.

Problem ist aber, daß die Bereiche jeweils angepasste Spaltenbreiten haben.
Bei deinem Vorschlag würde das Ganze dann optisch zerfallen.
Wollte beide Tabellen aber auf einem Blatt haben, um die Übersicht zu behalten.
Deshalb auch der horizontale Versatz.

Probier jetzt das Blatt noch mal so aufzubauen, daß beide Bereiche in Spalte A beginnen.
Muß dann eben mit vielen Spalten arbeiten, die ich je nach Bedarf verbinde.

Sollte dir allerdings zum Grundproblem noch was in VBA einfallen würde ich mich freuen.

Gruß
Uwe
Bitte warten ..
Mitglied: 76109
13.04.2013, aktualisiert um 02:54 Uhr
Hallo Uwe!

Generell würde mir dazu nur eine Anpassung der Spaltenbreite einfallen:
01.
Sheets("Tabelle2").UsedRange.Columns.AutoFit
Stellt sich nur die die Frage, wie dass dann optisch aussieht?

Gruß Dieter
Bitte warten ..
Mitglied: ovu-p86
14.04.2013 um 23:53 Uhr
Hallo Dieter,

dann besteht ja weiterhin das Grundproblem des horizontalen Versatzes.

Hatte gehofft, daß bei "union" jeder "range" für sich linksbündig untereinander weggedruckt wird. Dem ist aber offensichtlich nicht so. (Werde aber noch mal ein bißchen rumexperimentieren um das besser zu verstehen)

Das Problem an sich hab ich jetzt durch Neuaufbau des Blatts mit Start beider Ranges in Spalte A gelöst.
(war nervig, da ich wegen Sortierfunktion in einem Range nicht mit verbundenen Zellen arbeiten konnte).


Dank noch mal.

Gruß
Uwe
Bitte warten ..
Ähnliche Inhalte
VB for Applications

VBA - Bereich von Excel nach Word kopieren

gelöst Frage von schwazza89VB for Applications6 Kommentare

Hallo zusammen, ich suche eine Möglichkeit einen Bereich aus Excel in eine Tabelle in Word zu kopieren. Meinen ersten ...

Microsoft Office

Seitenumbruch in Excel soll neue Tabelle sein

gelöst Frage von killtecMicrosoft Office10 Kommentare

Hallo zusammen, ein Kollege trat gerade an mich ran und hatte gefragt, ob es möglich ist, eine Exceltabelle die ...

VB for Applications

Excel Liste mit vba auslesen und drucken

gelöst Frage von speedy132VB for Applications27 Kommentare

Hallo miteinander, Folgendes Problem: Ich habe eine Mitarbeiterliste mit Unterweisungsplan. Jetzt möchte ich einzelne MA markieren evtl. durch ein ...

Microsoft Office

Excel VBA jede Zelle in Bereich (Range) ändern (+1)

gelöst Frage von ggforumMicrosoft Office3 Kommentare

Tabelle mit etlichen Click-Buttons, denen unterschiedliche Makros zugeordnet sind. 1. Bereiches (Range) "ohneX" sollten sich um z.B. 1 erhöhen, ...

Neue Wissensbeiträge
Windows 10
Zero-Day-Lücke in Microsoft Edge
Information von kgborn vor 19 StundenWindows 10

In Microsofts Edge-Browser klafft wohl eine nicht geschlossene (0-Day) Sicherheitslücke im Just In Time Compiler (JIT Compiler) für Javascript. ...

Sicherheit
Microsoft und Skype: Sicherheit
Information von kgborn vor 20 StundenSicherheit

Die Tage gab es ja einige Berichte zur Sicherheit des Skype-Updaters. Der Updater von Skype läuft unter dem Konto ...

Datenschutz

Behörden ignorieren Sicherheitsbedenken gegenüber Windows 10

Information von Penny.Cilin vor 1 TagDatenschutz8 Kommentare

Hallo, passend zum Thema Ablösung LIMUX in München ein Beitrag bei Heise (siehe Link folgend). Behörden ignorieren Sicherheitsbedenken gegenüber ...

Sicherheit
Information Security Hub Munich airport
Information von brammer vor 1 TagSicherheit

Hallo, Neues Center für Cyber Kriminalität am Münchener Flughafen brammer

Heiß diskutierte Inhalte
Exchange Server
Exchange Postfach Einbindung Betriebs-rat -Arzt, Bewerbung .
gelöst Frage von YellowcakeExchange Server23 Kommentare

Hey ich habe da mal eine Denksport Aufgabe bekommen Genutzt wird ein Exchange Server 2010. hier gibt es den ...

Windows Server
Delgegierte OU via RDP verwalten - Objektverwaltung zuweisen
gelöst Frage von TOAOICEWindows Server12 Kommentare

Hallo, ich habe folgendes Problem. Ich möchte in meiner Domäne (Server2016), einer Gruppe (OUAdmin) Berechtigungen auf die OU Test ...

LAN, WAN, Wireless
Gigabit-Lan mit zwei 4-adrigen Kabeln?
Frage von ArvedirmerLAN, WAN, Wireless11 Kommentare

Ich habe folgendes Problem: Ich betreue eine kleine Firma die sich im 1.Stock eines Gebäudes befindet. Es existiert ein ...

Router & Routing
Routing Probleme mit Firewall
gelöst Frage von mb1811Router & Routing9 Kommentare

Hallo Zusammen! Ich habe folgende Problematik, wo ich ein wenig Input benötige: Gem. angehängter Skizze habe ich folgenden Stand: ...