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
  Zellbereich mit Zwischenablage vergleichen briansen93 1 32 28.11.2016, 14:59
Letzter Beitrag: Kuwer
  Diagrammformat anpassen Esteban290 1 59 07.11.2016, 17:16
Letzter Beitrag: shift-del
  VBA: Grafik einfügen und Makro zuweisen, Drucken und PDF-Erstellung andifreak 1 99 25.09.2016, 16:06
Letzter Beitrag: schauan
  Kopfzeile per Makro mit Textausschnitten von mehreren Zeilen anpassen Marco112 2 306 29.08.2016, 12:10
Letzter Beitrag: Marco112
  Listbox-Höhe soll sich automatisch an Anzahl der Einträge anpassen Lupy 7 443 27.08.2016, 21:05
Letzter Beitrag: Käpt'n Blaubär
  Nachkommastellen situativ anpassen und bei Bedarf mit Nullen auffüllen Vince440 8 531 02.08.2016, 21:26
Letzter Beitrag: schauan
  x-Achse in Diagramm anpassen lycaner 13 963 28.07.2016, 19:19
Letzter Beitrag: schauan
  Gefilterte Daten drucken Geri 10 742 26.07.2016, 16:51
Letzter Beitrag: Käpt'n Blaubär
  Foto in Zellbereich skaliert einfügen per VBA CleverStrauss 8 547 21.07.2016, 22:17
Letzter Beitrag: CleverStrauss
  Code anpassen! cysu11 26 1.761 27.06.2016, 16:50
Letzter Beitrag: schauan

Gehe zu:


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