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
  Datum anpassen shadow-c4 2 63 13.02.2017, 17:35
Letzter Beitrag: shift-del
  Bestimmten Text in ActiveX Textbox Fett drucken michi89287 1 40 10.02.2017, 17:50
Letzter Beitrag: schauan
  Zeilenhöhe automatisch anpassen - Problem bei Copy & Paste ToPo 3 85 09.02.2017, 15:42
Letzter Beitrag: lupo1
  Formel anpassen coemm 6 115 07.02.2017, 17:29
Letzter Beitrag: coemm
  Pfeil in Tabelle nicht sichtbar, aber beim Drucken schon rde 2 44 06.02.2017, 12:26
Letzter Beitrag: rde
  Spaltenbreite per Makro anpassen Hecklinger 14 324 02.02.2017, 11:02
Letzter Beitrag: Hecklinger
  Excelformeln variabel anpassen Pantostin 3 132 31.01.2017, 17:46
Letzter Beitrag: schauan
  Drucken VBA (Excel) Radi 4 88 30.01.2017, 18:57
Letzter Beitrag: WillWissen
  Formel automatisch anpassen Vanessa_KK 1 84 23.01.2017, 11:37
Letzter Beitrag: BoskoBiati
  Schaltflächen an Zellen anpassen und sortieren! cysu11 5 142 20.01.2017, 16:34
Letzter Beitrag: schauan

Gehe zu:


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