Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1436to1440
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
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

302 Forumthreads zu ähnlichen Themen

Auf jedem Tabellenblatt zurück in A1 springen
Bernd

Hallo,
ich habe mehrere Tabellenblätter und möchte, nachdem ich nachfolgende Module ausgeführt habe, daß auf jedem Tabellenblatt wieder A1 die aktive Zelle ist. Derzeit ist bei mir immer D7 aktiv.
Modul 1: Hier wird die Kopfzeile erstellt
Sub KopftextLinks() Dim i As Long Dim Blat...
20.02.2009 10:58:00
Thread-ID: 1052384
3 Beiträge
Anzeige
Überschriftzeile auf jeder Druckseite
thoemmy

Hallo VBAler
Ich habe eine ewig lange Tabelle die ich drucken möchte.
Ist es möglich dass man angibt, dass auf jeder neuen (Druck)Seite die Überschriftzeile an erster Stelle steht.
In meinem Fall ist der Überschriftsbereich Range(Cells(1,1),Cells(5,35)).
Danke für eure Tipps und...
18.05.2009 13:51:52
Thread-ID: 1075888
2 Beiträge
Titel auf jedem gedruckten Blatt sichtbar
Jan

Hallo zusammen
ich möchte dass ein Titel auf jedem gedruckten Blatt sichtbar ist.
Bsp so:
Habe folgende Tabelle...
Artikel ______ Menge______Preis
darunter folgen etwa 5000 Zeilen mit Artikeln, deren Menge und deren Preise.
Jetzt möchte ich aber, dass wenn ich drucke, i...
19.06.2009 09:43:10
Thread-ID: 1082792
3 Beiträge
Anzeige
Änderungsprotokoll! Aber NICHT für alle Blätter?
Gero

Hallo liebe Profis,
kurze Frage:
Ich will Änderungen meiner Arbeitsmappe / Tabellenblätter protokollieren.
Die tue ich durch:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim rng As Range For Each rng In Target watchChanges Sh.Name, rng.Address(0,...
18.11.2009 11:10:43
Thread-ID: 1118237
11 Beiträge
Änderung für alle Tabellenblätter übernehmen | Herbers Excel-Forum
Thomas
Hallo liebe VBAler
Ich hab eine Excel Datei mit 12 Tabellenblätter (Januar-Dezember).
Ände ich nun z.B. im Tabellenblatt Januar in Spalte A und B etwas, oder füge/lösche eine Zeile ein, dann soll er dies für alle anderen Tabellenblätter übernehmen.
Bis jetzt habe ich dies über Workshee...
14.01.2010 09:11:14
Thread-ID: 1129753
4 Beiträge
Drucker NE00 Name bzw. Variable für alle Blätter
Timonski

Servus
ich hätte da mal ne ...
Problem + Frage = Bitte => hoffentlich Lösung ;-) und zwar:
Ich muß immer eine Tabelle auf 2 verschiedenen Druckern ausdrucken.
die Drucker haben immer so komische Bezeichnungen z.b. KONICA MINOLTA magicolor 3100 auf Ne04:
das "auf Ne04" änd...
10.02.2010 11:49:32
Thread-ID: 1137261
3 Beiträge
Kopfzeilen nicht auf erster Seite
Heindl

Hallo,
ich habe ein Tabellenblatt (Excel2000), dass beim Ausdrucken mehrere Seite lang ist. Ich möchte erreichen, dass die Kopfzeile nicht auf der ersten Seite gedruckt wird, sondern nur auf allen restlichen Seiten.
Ich habe hierzu durch die Suchfunktion auch schon eine Lösung gefunde...
26.02.2010 08:26:43
Thread-ID: 1141655
2 Beiträge
Name für alle Blätter, dynamisch, aber ohne...
Norbert

Hallo
ich möchte für alle Tabellenblätter einer Arbeitsmappe einen Namen definieren, dynamisch, da später weiter Blätter hinzukommen. Dies ist ja mit der Formen =ARBEITSMAPPE.ZUORDNEN(1+0*JETZT()) möglich.
Aber: Die Tabelle 1 und die Tabelle 3 sollen ausgenommen sein.
Kann mir jema...
02.05.2010 11:51:04
Thread-ID: 1154936
4 Beiträge
Anzeige

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
2
3
1
2
2
10
3
2
1
3
7
2
2
7
8
9
6
9
1
4
3
3
9
4
8