Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Individuelle Druckbereiche auf jeder Seite

Forumthread: Individuelle Druckbereiche auf jeder Seite

Individuelle Druckbereiche auf jeder Seite
30.07.2015 16:17:28
Juergen
Hallo zusammen,
ich habe folgendes Problem. Ich muss den Druckbereich über VBA festlegen und bräuchte dafür ein Makro.
Meine Mappe beinhaltet ca. 25 Arbeitsblätter, von denen alle einen anderen Druckbereich haben. Der Druck von jedem Arbeitsblatt soll 1-seitig erfolgen (Stichwort: "auf eine Seite anpassen" (bis auf bei einem Arbeitsblatt, da sind es 2 Seiten). Z.T. erfolgt der Druck im Hochformat, z.T. Querformat.
Warum das nicht über "Seite einrichten" und "Druckbereich festlegen" ohne Makros geht ist eine andere Geschichte. Das liegt an der Software, die ich zur Verschlüsselung verwende.
Ideen? Muss ich für jede Seite ein eigenes Makro schreiben und eine Schaltfläche zuweisen? Andere Ideen? Irgendeine Idee, unter Verwendung der "normalen" Druckfunktion?
Lieben Dank!
Jürgen

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Individuelle Druckbereiche auf jeder Seite
30.07.2015 18:35:55
Juergen
Vielleicht sollte ich noch etwas konkreter werden.
Das folgende Makro wird durch den Druck bereits angesprochen:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Range("A1:O150").Replace "j", "", lookat:=xlWhole, MatchCase:=False
Next ws
End Sub
Ich bräuchte jetzt zusätzlich ein Makro, welches beim Druck den gewünschten Druckbereich des "aktiven" Arbeitsblatts ausdruckt. Komme ich da drum herum, das für alle Blätter individuell anzupassen? Wie würde ein funktionierendes Makro aussehen? (z.B. Worksheet "GWG", Druckbereich B3:L37 im Querformat auf eine Seite anpassen). Das obige Makro müsste aber auch ausgeführt werden.
Danke
Jürgen
Anzeige
;

Forumthreads zu verwandten Themen

Zusammenfassung sheets auf einer Seite, ohne Leerz
gerdi

Hallo,
ich möchte aus verschiedenen Excel-Sheets (Tabs) eine Zusammenfassung
aller benutzten Zeilen haben.
Es gibt z.B. 10 verschiedene Tabellen, eine heißt Berlin, andere Rom, ect. und
auf jeder Tabelle sind zu verschiedenen Zeiten andere Inhalte.
Z.b. sind heute 10 Zeilen...
18.11.2008 14:36:00
Thread-ID: 1025647
3 Beiträge
Anzeige
Wie kann man Makros auf einer html-Seite aktiviere
Nicola

Hallo
Ich habe eine Exceltabelle, bei der eine Suchfunktion als Makro eingebaut ist. Doch ich kann das Makro nicht mehr öffnen, sobald ich sie als htm/html-Datei abspeichere.
Grüße Nicola
24.11.2008 22:18:34
Thread-ID: 1027502
3 Beiträge
Auf eine Seite drucken
Arnold

Hallo,
ich habe folgendes Problem:
Ich habe ein Tabellenblatt erstellt und will dieses über einen button ausdrucken.
Den Druckbereich habe ich wie folge definiert:
Private Sub CommandButton1_Click() Range("F9:P31").PrintPreview End Sub
Jetzt druckt er aber auf zwei Blätte...
29.11.2008 14:11:00
Thread-ID: 1028834
4 Beiträge
2 Sheets auf einer Seite!??
Timmy

Liebe Excler,
ich moechte folgendes erreichen.
Und zwar habe ich Daten auf einem Spreadsheet, die ich unabhaengig voneinander bearbeiten will.
Ich habe eine Beispieldatei angehaengt und etwas dazu erlautert...
https://www.herber.de/bbs/user/59047.xls
Ich hoffe, ich habe es...
03.02.2009 19:43:19
Thread-ID: 1046763
3 Beiträge
Anzeige
25 Zeilen auf eine Seite
Markus

Hallo zusammen,
ich habe eine lange Tabelle (ca. 40 Seiten nur mal als Größe) und ich bekomme es trotz Seite einrichten "anpassen" und "Seitenränder" nicht oder nur sehr mühsam hin, hin dass auf jede Seite 25 genau Excel-Zeilen gedruckt werden.
Hat hier jemand ein Makro für? Das ist ab...
02.04.2009 18:57:27
Thread-ID: 1066456
8 Beiträge
VBA: Erste Seite einer Datei nicht mitdrucken
Jonathan

Hallo zusammen,
ich habe folgendes Problem, welches mittels eines Makros gelöst werden muss:
Ich möchte in eine Datei ein Makro einbauen, welches verhindert, dass die erste Seite mitgedruckt wird.
Das Makro sollte nach dem klick auf die Druckfunktion starten.
Da die Datei späte...
17.04.2009 11:15:57
Thread-ID: 1069277
5 Beiträge
In einer Schleife auf Tastendruck warten
Bernd

Hallo Excelisten speziell Tino,
die u.a. Antwort von Tino funtioniert, wenn ich sie nachbaue. Wenn ich sie aber in mein Modul einbaue geht es nicht.
Ich verwende eine Auto_Open wie folgt:
Sub Auto_Open()
manueller_Ablauf = "nein"
Application.OnKey "%m", "Man_ablauf_setzen"
29.04.2009 13:58:25
Thread-ID: 1071901
5 Beiträge
Anzeige
Mehrere Pivottabellen auf einen Filter reagieren
vux

Hallo,
einfaches Anliegen:
Sagen wir ich habe eine Tabelle mit einer Spalte "Länder" und ein Sheet mit 20 Auswertungspivottabellen.
Kann man es einrichten, dass wenn man an einer Stelle ein Land eingibt, alle Pivottaballen nach diesem Land gefiltert werden? Sonst muss ich jedesmal 2...
16.06.2009 14:53:58
Thread-ID: 1081917
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
Breite einer Userform auf Knopfdruck ändern
Rudolf

Hallo
In einer UserForm hab ich u.a. eine Schaltfläche "Breite"
Nach einem Klick auf diese Schaltfläche soll die Breite der Userform (also die gleiche UserForm)
verbreitert werden.
wenn ich das mittels
Userform.with = ....
versuche so klappt das nicht ?
Wie geh ich...
28.01.2010 08:55:50
Thread-ID: 1133605
4 Beiträge
Anzeige
pdf-Druck laufende Seitennummerierung umgehen
Sandra

Hallo Ihr Lieben.
Derzeit nutze ich, folgendes Makro:
Sub PDF_Print_Sheet() 'Modifiziert Dim wks As Worksheet For Each wks In ActiveWindow.SelectedSheets With wks .Select .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Environ("userprofile") & "\Desktop\" & .Name & ".pdf"...
02.02.2010 14:55:09
Thread-ID: 1135127
12 Beiträge
Daten in eine Tabelle auf einem anderen Laufwerk k
juergenklein

Hallo zusammen,
die folgende Prozedur führt dazu, dass die Daten aus der Tabelle "amtsger" kopiert und in eine Tabelle "Statistik" im selben Ordner von links nach rechts um jeweils eine Zelle versetzt eingefügt werden. Wie funktioniert diese Prozedur aber, wenn sich die Tabelle "Statistik"...
21.04.2010 12:56:38
Thread-ID: 1153107
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige