Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Makro - Zellbereich anpassen und Drucken
#1
Hallo Liebe Excel Freunde

Ich Brauch ein Makro wo ich denn Zell bereich ein krenzen und dann Drucken kann ohne das TabellenBlatt zu verändern.

Der Druck soll erst von Zeile 12 Beginnen

Ein Blatt Papier hat ja eine gewiese Druck Breite, Darauf möchte ich gerne meine Buchungs einträge Drucken.
Da ja die Zellen von D:K über die Nomale Breite vom Papier möchte ich gerne die Zellen Anpassen.

* Spalte D = Nr.
* Spalte E = Datum
* Spalte F:G = Posten
*In Spalte H, I, J = Einahmen, Zinsen, Ausgaben (je zeile nur einen Wert)
 Würde ich gerne nur in eine Spalte machen!
*Spalte K = Guthaben

Dann noch soll nur dieser bereich gedruckt werden, wenn in der Zeile  K was steht.

Da ich nicht weis wie ich das richtig erklären soll Habe ich es in einer
Excel Datei ( im Anhang) erstellt.

Ich Bitte um Hilfe?

MfG BD


Angehängte Dateien
.xlsm   Mappe1.xlsm (Größe: 23,52 KB / Downloads: 3)
to top
#2
Hallo,

wirf den Makrorecorder an und führe dnn folgende Schritte aus:

1. Markiere den Bereich, welcher ausgedruckt werden soll
2. Rufe die Seitenansicht aiuf und stelle "auf eine Seite anpassen" ein

beende den Makrorecorder und weise diesem in einem Modul aufgezeichneten Makro einen Mutton auf deinem Tabellenblatt zu.
Damit wird die Druckeinstellung eingestellt und du kannst das auf einem Blatt ausdrucken. Soll durch diesen Button auch das Drucken ausgelöst werden, ist der Code noch zu vervollsiändigen. Stelle ihn hier ein, dann machen wir das.
?mage
Gruß Günter
aus der Messe-, Buch-, Universitäts- und Autostadt Leipzig
Windows 7 32 Bit / Windows 8.1 64 Bit • Excel 2000 / Excel 2003 / Excel 2007 / Excel 2010 - alle 32 Bit
to top
#3
Danke für die Antwort.

Ich habe den Code gefunden:
Code:
Sub Druck4()
If Sheets("Tabelle2").Range("F66") = "" Then
   With Sheets("Tabelle2")
       .Visible = True
       .PageSetup.PrintArea = "A1:F63"
       .PrintOut Preview:=True
       .Visible = False
   End With
Else
   With Sheets("Tabelle2")
       .Visible = True
       .PageSetup.PrintArea = "A1:F126"
       .PrintOut Preview:=True
       .Visible = False
   End With
End If
End Sub
Mein Problem ist: Jedes mal bevor die Seiten ansicht geöffnet wir, öffnet sich TabellenBlatt2 ganz kurz.
Kann man das verhindern? Das gleich die Seiten Ansicht sich öffnet?
Oder das ich das TabellenBlatt2 augeblendet lassen kann und nur das über Seiten ansicht anzeigen lassen kann?

MfG BD
to top
#4
Hallo,

setze vor der If-Zeile folgenden Code

Code:
Application.ScreenUpdating = False
und nach dem End If
Code:
Application.ScreenUpdating = True
Gruß Stefan
Win 7 / Office 2007
to top
#5
Hallo Stefan

Wenn ich das so mache da wird zwar die Seitenansicht angezeigt,
aber die leiste der Seitenansicht bleibt nomal also steht oben neben Datei nicht Seitenansicht
sondern Start/Einfügen/Seitenlayout/Formel u.s.w.

warum ist das so und wie kann ich da oben Seitenansicht stehen haben?

MfG BD
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Schaltflächen an Zellen anpassen und sortieren! cysu11 5 66 20.01.2017, 16:34
Letzter Beitrag: schauan
  Zellbereich nach Auswahl sichtbar machen himod 5 105 13.01.2017, 18:05
Letzter Beitrag: schauan
  Makro/VBA Reset Makro inkl. Dropdownmenüs Nordlicht85 7 96 12.01.2017, 10:46
Letzter Beitrag: Nordlicht85
  Spaltenbreite per Makro anpassen Hecklinger 4 109 05.01.2017, 06:48
Letzter Beitrag: WillWissen
  Hyperlinks anpassen Icepic 2 127 29.12.2016, 14:18
Letzter Beitrag: Icepic
  Hyperlink anpassen auf neues Tabellenblatt Icepic 3 122 10.12.2016, 05:47
Letzter Beitrag: schauan
  Zellbereich mit Zwischenablage vergleichen briansen93 1 62 28.11.2016, 14:59
Letzter Beitrag: Kuwer
  Diagrammformat anpassen Esteban290 1 117 07.11.2016, 17:16
Letzter Beitrag: shift-del
  VBA: Grafik einfügen und Makro zuweisen, Drucken und PDF-Erstellung andifreak 1 142 25.09.2016, 16:06
Letzter Beitrag: schauan
  Kopfzeile per Makro mit Textausschnitten von mehreren Zeilen anpassen Marco112 2 362 29.08.2016, 12:10
Letzter Beitrag: Marco112

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste