Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 20:49:40
Listbox - ausgewählte Zeile aus Tabellenblatt markieren
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schmale Spalten nebeneinander drucken

Schmale Spalten nebeneinander drucken
02.12.2003 13:36:36
Scotty
Hallo....

habe ein Excel-Tabellenblatt im Querformat. Auf ihn sind Spalten 1-6 beschrieben. Da diese Spalten nicht zu breit sind, würde ich sie gern durch eine Spalte getrennt, neben den ersten 6 Spalten ausdrucken. Der Tabellenkopf müßte auch mit übernommen werden. Alles was ich bisher gefunden habe, hat mir leider nicht weitergeholfen.

Danke für eure Hilfe
Scotty

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schmale Spalten nebeneinander drucken
02.12.2003 22:53:47
KViertel
Hallo Scotty,
meines Wissens gibt es keine solche Möglichkeit, aber evtl. könnte dir die Kamera helfen.
Unter "Extras Anpassen" - "Befehle Extras" findest du den Button. Ziehe ihn in die Symbolleiste. Markiere dann den Inhalt der ersten 6 Spalten, drücke die Kamera und ziehe dann evtl. auf einem leeren Blatt einen Bereich. Das gleiche, daneben, mit den anderen 6 Spalten. Ziehe dann über den Gesamtbereich eine Markierung und setze den Druckbereich. Der Bereich verändert sich allerdings nicht, so dass eine Erweiterung der Spaltenlänge nicht berücksichtigt wird und jeweils neu fotografiert werden muß. Änderungen im fotografierten Bereich werden aber übernommen.

Vielleicht hilfts dir weiter.

MfG. Klaus
Anzeige
AW: Schmale Spalten nebeneinander drucken
02.12.2003 22:53:56
KViertel
Hallo Scotty,
meines Wissens gibt es keine solche Möglichkeit, aber evtl. könnte dir die Kamera helfen.
Unter "Extras Anpassen" - "Befehle Extras" findest du den Button. Ziehe ihn in die Symbolleiste. Markiere dann den Inhalt der ersten 6 Spalten, drücke die Kamera und ziehe dann evtl. auf einem leeren Blatt einen Bereich. Das gleiche, daneben, mit den anderen 6 Spalten. Ziehe dann über den Gesamtbereich eine Markierung und setze den Druckbereich. Der Bereich verändert sich allerdings nicht, so dass eine Erweiterung der Spaltenlänge nicht berücksichtigt wird und jeweils neu fotografiert werden muß. Änderungen im fotografierten Bereich werden aber übernommen.

Vielleicht hilfts dir weiter.

MfG. Klaus
Anzeige
AW: Schmale Spalten nebeneinander drucken
03.12.2003 07:03:19
Scotty
Danke für deine Antwort. Ein Makro wäre mir aber lieber. Habe bis jetzt folgendes Makro, schau es dir einfach mal an.


Sub MultiSpaltenDruck()
Dim rng As Range
Dim iRow As Integer, iCountR As Integer
Dim iRowT As Integer, iColT As Integer
Dim iCounter As Integer
Application.ScreenUpdating = False
Set rng = Range("A1").CurrentRegion
iCountR = 36 'Problem: nach Zeile 36 wird oben neben der Tab. weitergeschrieben
Workbooks.Add 1
iRow = 1
iRowT = 1
iColT = 1
Do While iRow <= rng.Rows.Count
For iCounter = 1 To 2
rng.Range(rng.Cells(iRow, 1), _
rng.Cells(iRow + iCountR - 1, 6)).Copy _
Cells(iRowT, iColT)
iRow = iRow + iCountR
iColT = iColT + 8
Next iCounter
ActiveSheet.PrintPreview
iColT = 1
Loop
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = False
End Sub


Das Problem was jetzt besteht ist folgendes: Mein Arbeitsblatt ist im Querformat. Das Makro zeigt aber dann bei der Druckvorschau Hochformat an. Die Spalten passen dann nicht auf das Blatt. 2. Problem: Die Tabelle geht über mehrere Seiten. Das Makro (Siehe oben:Tabellenumbruch Zeile 36)funktioniert nur auf den ersten beiden Seiten. Wenn man die Zeile 'iCountR = 36' irgendwie ändern könnte, das jede beschrieben Seite am Seitenende "umgebrochen" wird, wäre das Makro perfekt.

Vielleicht hast du ne Idee.

Gruß Scotty
Anzeige
AW: Schmale Spalten nebeneinander drucken
03.12.2003 21:54:26
KViertel
Hallo Scotty,
Ich habe leider Probleme mich in VBA-Codes einzulesen, deren Grundlagen ich nicht genau kenne.
Mit diesem Code stellst du das Querformat ein.
z.B. vor dem Preview
With ActiveSheet.PageSetup
.Orientation = xlLandscape
End With
Wenn du anschliessend die erste Spalte im genutzten Bereich markierst und z.B. mit einer Schleife die Zeilen zählst und dann bei jeder 37. Zeile mit
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Seitenumbrüche einfügst.

Ich hoffe dir mit einigen Tips geholfen zu haben.

MfG. Klaus
Danke für deine Hilfe
04.12.2003 15:40:41
Scotty
Hi Klaus

danke für deine Tipps. Vielleicht helfen sie mir bei meinen Problem. Schönen Tag

Scotty
Anzeige

227 Forumthreads zu ähnlichen Themen

Zwei Spalten in jeweils zwei Tabellen miteinander
Lutz

Liebe Leute,
ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
08.08.2008 15:56:55
Thread-ID: 1000336
4 Beiträge
Anzeige
drucken-seitenränder
Wolfgang

Guten morgen
mein problem
ich habe die seitenränder auf 1.5 eingestellt, die tabelle passt dann auf eine seite
die datei wird dann per vba(dank eurer hilfe) gespeichert.
rufe ich sie dann auf sind die seitenränder wieder auf der grundeinstellung
und dann passt die tabelle...
27.09.2008 09:32:05
Thread-ID: 1012784
4 Beiträge
Diagramm über mehrere Seiten drucken
Heiko

Hallo,
ich möchte ein großes Diagramm (ca. 1.000 Säulen) über mehrere Seiten ausdrucken ohne mehrere Einzeldiagramme daraus zu machen.
Hat jemand einen Tip?
Danke
Heiko
16.10.2008 11:37:00
Thread-ID: 1016806
3 Beiträge
Anzeige
Leere Zeilen in Tabellenspalte zählen
A.Franz

Hallo...
ich habe fogendes Problem u.hoffe das mir jemand helfen kann.Ich Habe eine UserForm mit Listbox u.Textbox.Über diese schreibe ich Werte in die Tabelle (Spalte A).Ist es möglich,wenn ich die Userform aufrufe,das mir die Anzahl noch freier Zeilen in Spalte A z.B in einer TextBox oder...
03.12.2008 12:55:46
Thread-ID: 1029789
4 Beiträge
Nur bestimmten Bereich Drucken
Willy

Hallo Leute
Habe eine Tabelle A1-D60 mit Rahmen und Zwischenlinien, ab der 4. Zeile sind die Spalten miteinander verbunden.
Es soll nur der Bereich gedruckt werden, wo was drin steht, einzelne leer Zeilen sollen ignoriert (leer gedruckt) werden und am Ende sollen zwei leer Zeilen mit ge...
14.02.2009 12:21:00
Thread-ID: 1050686
4 Beiträge
Schmale Spalten nebeneinander drucken
Bernhard

Hallo,
ich möchte eine lange schmale 2-spaltige Tabelle ausdrucken, so dass die Spalten nebeneinander erscheinen.
Dazu möchte ich das Makro : https://www.herber.de/cgi-bin/callsmpl.pl?Datei=053499h.htm
verwenden.
Leider werden meine schmale Spalten auf ein Standardmass verbreite...
25.05.2009 21:06:20
Thread-ID: 1077224
3 Beiträge
zwei Diagramme auf eine Seite drucken, ohne Tabell
Christian

Hallo Forum,
ich möchte zwei Diagramme auf einer A4 Seite ausdrucken, ohne die Zellen im Hintergrund mitzudrucken.
Dazu wähle ich die beiden Diagramme, klicke auf "Drucken", aber es werden immer die Zellen die neben den Diagrammen vorgucken mit ausgedruckt. Wenn ich nur ein Diagramm wäh...
14.07.2009 09:59:49
Thread-ID: 1088376
5 Beiträge
Genau 10 Seiten mit 52 Zeilen drucken
Klaus

https://www.herber.de/bbs/user/63555.xls
Hallo Forum,
bin am verzweifeln. Ich hatte die Frage schon vor ein paar Tagen gestellt und auch
eine Antwort erhalten, es will aber einfach nicht klappen:
Es geht "nur" darum, einen bestimmten Bereich auf genau 10 Seiten A4 zu drucken.
01.08.2009 11:41:31
Thread-ID: 1092776
9 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
3
2
3
3
3
2
4
8
8
3
3
4
2
1
4
5
2
1
3
4
4
1
1