Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1420to1424
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
1420to1424
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckbereich nach Jahr automatisch anpassen

Druckbereich nach Jahr automatisch anpassen
15.04.2015 12:21:29
marcel
Hallo,
ich habe folgendes beispielhaftes Tabellenblatt.
Ich würde gerne einen Button haben, durch den nur ein bestimmter Bereich der Tabelle gedruckt wird.
Es soll die Spalte mit der Beschriftung, die Spalte mit den Werten für das aktuelle Jahr, die zwei vorherigen Jahre und die drei zukünftigen Jahre ausgedruckt werden.
Beste Grüße
Marcel
Userbild

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich nach Jahr automatisch anpassen
15.04.2015 13:01:05
Oberschlumpf
Hi Marcel
ich könnte mich daran versuchen, einen VBA-Code für dein Problem zu erstellen.
Dafür brauch ich aber genau deine Bsp-Datei per Upload, die du uns leider nur als Grafik zeigst.
Ciao
Thorsten

AW: Druckbereich nach Jahr automatisch anpassen
18.04.2015 09:12:13
fcs
Hallo Marcel,
hier ein entsprechendes Makro, das du dann deiner Schaltfläche zuweisen muss.
Gruß
Franz 
'Makro in einem allgemeinen Modul
Sub Drucken_6_Jahre()
Dim wks As Worksheet
Dim intJahr As Integer
Dim lngSpalte As Long, lngZeileJahr As Long
Set wks = ActiveSheet 'zu druckendes Tabellenblatt
lngZeileJahr = 2     'ggf. anpassen
intJahr = Year(Date) 'aktuelles Jahr
With wks
'Alle Spalten einblenden
.Columns.Hidden = False
'Spalten ab Spalte B in der Zeile mit den Jahreszahlen abarbeiten
For lngSpalte = 2 To .Cells(lngZeileJahr, .Columns.Count).End(xlToLeft).Column
'Jahr in Jahres-Zeile prüfen und ggf. Spalte ausblenden
Select Case .Cells(lngZeileJahr, lngSpalte).Value
Case intJahr - 2 To intJahr + 3
'do nothing
Case Else
.Columns(lngSpalte).Hidden = True
End Select
Next lngSpalte
.PrintOut Preview:=True 'ggf. auf False ändern
'Alle Spalten wieder einblenden
.Columns.Hidden = False
End With
End Sub

Anzeige

86 Forumthreads zu ähnlichen Themen

Spalte nicht ausdrucken
Edwin

Hallo,
ich möchte in einem Sheet, dass eine bestimmte Spalte nicht ausgedruckt wird.
Ich weiß, dass ich Spalten ausblenden kann und dass diese dann nicht ausgedruckt werden.
Kann ich aber auch der Spalte die Eigenschaft zuweisen, dass sie nicht ausgedruckt wird?
Gruß
Edwin
05.11.2008 10:42:43
Thread-ID: 1021789
4 Beiträge
Anzeige
PageSetup.PrintArea festlegen
Peter

Guten Tag
Wie kann ich in einer Tabelle, die nicht zwingend aktiv ist, den Druckbereich festlegen?
Sowohl bei
With Sheets("ABC")
.PageSetup.PrintArea = .UsedRange
With .PageSetup
.LeftMargin = Application.InchesToPoints(1.10236220472441)
.RightMargin = Application.In...
24.01.2011 17:25:05
Thread-ID: 1197082
3 Beiträge
Druckbereich automatisch anpassen
Wolfango

Hallo zusammen,
in einer Tabelle soll immer nur bis zu einer bestimmten Zeile gedruckt werden (variabel!).
Mit Hilfe einer Formel kann ich ermitteln welche Zeile das ist (das Ergebnis der Formel steht in Zelle 'P5' und hier steht dann bspw. '25', wenn ich möchte dass bis einschl. Zeile...
17.01.2012 09:48:09
Thread-ID: 1246495
7 Beiträge
Anzeige
2 print areas für ein sheet festlegen
Friederike

Hallo,ich habe ein großes Excel Sheet mit mehreren Tabellen.Ich möchte jedoch nur 2 davon ausdrucken. Diese befinden sich an unterschiedlichen Stellen im File. Ich möchte nicht jedes mal eine der beiden Tabellen markieren und dann den selektierten Bereich ausdrucken. Ich hab es schon mit der AN...
29.07.2002 12:41:06
Thread-ID: 141942
4 Beiträge
Druckbereich automatisch anpassen
matthias

Hallo,
gibt es eine Möglichkeit den Druckbereich automatisch immer erweitern zu lassen entsprechend der Anzahl der Zeilen die einen Wert aufweisen?
Wie kann man so etwas realisieren?
09.04.2015 12:40:10
Thread-ID: 1419887
9 Beiträge
Druckbereich dynamisch festlegen
Paul

Hallo,
ich habe Schwierigkeiten den Druckbereich meiner Tabelle dynamisch festzulegen. Ich habe eine Möglichkeit gefunden dies über den Namensmanager zu tun, allerdings kann ich den Druckbereich dann einmal dynamisch anpassen, danach bezieht der Name sich wieder auf den Bereich und nicht au...
19.04.2015 10:05:47
Thread-ID: 1421656
2 Beiträge
Dynamischer Druckbereich mit VBA
Mats

Hi Leute,
nach langem suchen im Netz habe ich zwar viele Lösungsansätze für das oben beschriebene Problem gefunden aber keiner funktioniert für mich (bzw. schaffe ich es nicht ihn anzupassen).
Ich will einen dynamischen Druckbereich mit VBA. Als Formel hab ich den Druckbereich bereits i...
03.04.2016 00:09:37
Thread-ID: 1485600
4 Beiträge
Druckbereich dynamisch festlegen
Danny

Moin die Damen und Herren,
Ich habe in einer Tabelle einige Bereiche die immer mitgedruckt werden sollen und einige die nur mitgedruckt werden sollen, wenn sich in der Spalte A ein X davor befindet.
Mein Problem ist, dass die besagten Bereiche mal eine Zeile, mal 2 oder auch mal 4 habe...
13.10.2016 08:52:55
Thread-ID: 1519407
2 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
3
22
2
6
3
3
8
1
3
1
6
4
4
2
1
1
2
2
1
11
2
7
2
2
2