Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1116to1120
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
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucken über VBA

Drucken über VBA
ABO
Hallo zusammen,
ich habe folgendes Makro:
Sub Drucken()
Dim rLetzte As Range
Set rLetzte = Cells.Find("*", , xlValues, 2, 1, 2, False, False, False)
If Not rLetzte Is Nothing Then
With ActiveSheet
.PageSetup.PrintArea = .Range("A2", rLetzte).Address
.PrintOut
.PageSetup.PrintArea = ""
End With
End If
ActiveSheet.PageSetup.PrintArea = "$A$2:$M$700"
End Sub
Was ich jedoch nicht nachvollziehen kann, auf welche Spalte er sich bezieht.
Ich hoffe es kann mir jemand weiter helfen.
Gruß ABO

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Drucken über VBA
19.11.2009 13:47:57
Björn
Hallo,
Du suchst nach *.
Die gefundene Zelle wird dann als Spalte für den Druckbereich benutzt.
Syntax für "Find":
Find(What, [After], [LookIn], [LookAt], [SearchOrder], [SearchDirection As XlSearchDirection = xlNext], [MatchCase], [MatchByte], [SearchFormat]) As Range
Gruß
Björn
AW: Drucken über VBA
19.11.2009 13:56:28
ABO
Hallo Björn,
wo und was muss ich ändern, damit das Makro nur die Spalte A untersucht ob Daten vorhanden sind?
Gruß Andreas
AW: Drucken über VBA
19.11.2009 14:02:41
Björn
Hallo,
wenn Du einen bestimmten Bereich (mehr als eine Zelle) markiert hast, dann sucht Excel auch nur in der Markierung.
Einfach vorher ein Range("A1:A100").Select (Zeilen natürlich noch anpassen).
Du setzt aber mit deinem Code den Druckbereich anhand der gefundenen Zelle.
Es wird also nur Spalte A gedruckt. Ist das richtig?
Gruß
Björn
Anzeige
AW: Drucken über VBA
19.11.2009 14:13:10
ABO
Hallo Björn,
nein es wird nicht nur die Spalte A gedruckt!
Es werden alle Spalten gedruckt, wo Daten vorhanden sind.
Ich möchte das die Spalte A nach Daten Überprüft wird, und dann von den Spalten A-M die Zeilen gedruckt werden wo Daten von der Spalte A vorhanden sind.
Wenn Keine Daten in den Zellen der Spalte A sind, sollen die Zeilen auch nicht gedruckt werden.
Gruß ABO
AW: Drucken über VBA
19.11.2009 14:25:25
Björn
Hallo,
dann noch ein paar Fragen.
Du schreibst: 
Wenn Keine Daten in den Zellen der Spalte A sind, sollen die Zeilen auch nicht gedruckt werden.

Heißt, dass hier müssen noch Zeilen ausgeblendet werden?
Oder geht es Dir um die letzte befüllte Zeile? Das würde ich dann ganz anders machen.
Weiters schreibst Du: 
es werden alle Spalten gedruckt, wo Daten vorhanden sind.

Muss das auch geprüft werden? Also nur Spalten mit Inhalt?
Oder meinst Du alle Spalten von A-M, wenn in A was steht?
Gruß
Björn B.
Anzeige
AW: Drucken über VBA
19.11.2009 14:30:59
ABO
Hallo Björn,
Punkt 1: ja wenn keine Daten in den Zellen der Spalte A sind, sollen diese Zeilen auch nicht gedruckt werden.
Punkt 2: ich meine alle Spalten von A-M
Mein Makro funktioniert ja auch soweit, jedoch werden die Spalten L-M nicht gedruckt, da dort in den Zellen noch keine Daten stehen.
Gruß ABO
AW: Drucken über VBA
19.11.2009 14:33:35
Björn
Dein Makro kann den Punkt 1 nicht berücksichtigen...
Ist es wirklich so, dass du Leerzeilen hast, die nicht gedruckt werden und dann kommen wieder welche mit Inhalt? Das müsstest Du über Autofilter lösen.
Also ich meine z.B.
Drucken Zeile 1-127; dann Zeile 128-135 leer, auch nicht drucken; dann 136-150 drucken
Gruß
Björn B.
Anzeige
AW: Drucken über VBA
19.11.2009 14:44:12
ABO
Hallo Björn,
ich verstehe nicht ganz was du mir damit sagen willst.
Die Zeilen Funktionieren bei mir schon. Es werden nur die Zeilen Gedruckt wo Daten vorhanden sind.
Das einzigste was noch nicht funktioniertist, dass die Spalte L-M nicht mit ausgedruckt wird.
Gruß ABO
AW: Drucken über VBA
19.11.2009 14:55:49
Björn
Ok, da haben wir klassisch aneinander vorbeigeredet...
Du brauchst die Zeile: 
.PageSetup.PrintArea = "A2:M" + CStr(rLetzte.Row)

Deine alte Codezeile hat von A2 bist zur letzten Zelle benutzt.
Ich verwende aus der letzten Zelle nur die Zeile und gebe das "M" für die Spalte fix ein.
Warum setzt Du am Ende den Druckbereich wieder auf A2:M700?
Und warum hebst Du ihn dazwischen ganz auf (PrintArea = "")?
Gruß
Björn
Anzeige
AW: Drucken über VBA
19.11.2009 15:04:02
ABO
Hallo Björn,
ich stelle den Druckerbereich wieder auf M2:M700, damit man über die normale Druckerfunktion die gesamte Tabelle Drucken kann.
PrintArea="" habe ich vergessen wieder heraus zu nehmen.
Gruß ABO
Funktioniert es jetzt? oT
19.11.2009 15:14:39
Björn
AW: Drucken über VBA
19.11.2009 15:03:08
IngGi
Hallo ABO,
ich wusste gar nicht, dass man einen Druckbereich definieren kann, der aus mehreren getrennten Zellbereichen besteht. Aber du sagst ja selbst, dass das mit den Zeilen bei dir funktioniert. Dann müsste mit folgendem Makro (kleine Änderung in der Find-Zeile) auch die Spaltenauswahl hinhauen:
Sub Drucken()

Dim rLetzte As Range
Set rLetzte = Range("A:A").Find("*", , xlValues, 2, 1, 2, False, False, False)

If Not rLetzte Is Nothing Then
  With ActiveSheet
    .PageSetup.PrintArea = .Range("A2", rLetzte).Address
    .PrintOut
    .PageSetup.PrintArea = ""
  End With
End If

ActiveSheet.PageSetup.PrintArea = "$A$2:$M$700"

End Sub
Code eingefügt mit VBA in HTML 2.0.0.3size>
Gruß Ingolf
Anzeige
AW: Drucken über VBA
19.11.2009 15:08:45
Björn
Hallo Ingolf,
dann lass Dich mal eines Besseren belehren: 
ich wusste gar nicht, dass man einen Druckbereich definieren kann, der aus mehreren getrennten Zellbereichen besteht.

Natürlich geht das, z.B. so: 
ActiveSheet.PageSetup.PrintArea = "$E$33,$B$20:$D$21,$F$10:$G$12,$H$4:$J$9,$C$10:$D$14,$A$35,$F$40"

Du kannst einen Druckbereich aus zig beliebigen Bereichen Deiner Tabelle definieren.
Haken dabei ist nur, dass jeder Bereich für sich auf einer extra Seite gedruckt wird.
Daher ist das meist nicht so zielführend.
Einfach mal testen.
Wild Mehrfachmarkierungen machen, dann Druckbereich festlegen und auf Seitenansicht gehen.
Übrigens habe ich das auf der Klugscheißeruniversität gelernt ;-)
Gruß
Björn
Anzeige

299 Forumthreads zu ähnlichen Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Anzeige
Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Watchdop für VBA
peter

Hallo VBA Cracks,
Im 5 Minuten-Abstand hole ich mir via Webabfrage Daten aus dem Internet. Nun kann es passieren, dass das VBA Programm bei einer Abfrage z.B. mehr als 5 Minuten hängen bleibt, was ungewollt ist.
Kann man ein solches Problem umgehen, wenn man mit VBA einen Watchdog reali...
11.08.2008 17:39:00
Thread-ID: 1000934
5 Beiträge
Anzeige
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
geschütztes blatt = Fehlermeldung VBA
Pet


Hallo an Alle,
per Button werden 2 Tabellenblätter kopiert und nur die Werte in eine neue Datei gespeichert.
Dies klappt auch wunderbar!
Doch wenn ich die Blätter schütze bekomme ich immer eine Fehlermeldung.
Beende ich diese Fehlermeldung 1004, werden die Blätter trotzdem...
13.08.2008 18:48:00
Thread-ID: 1001622
3 Beiträge
Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
VBA Lösung für Tabellenblattwechsel gesucht
Nila

Hallo.
Ich habe folgendes vor:
Ich lege derzeit eine Exceldatei mit Steckbriefen von ca. 150 Personen an.
Jeder Steckbrief steht dabei auf einem eigenen Tabellenblatt.
Die Tabellenblätter werden nach der entsprechenden Person benannt.
Zum Beispiel: Name von Tabellenblatt 70:...
14.08.2008 10:07:25
Thread-ID: 1001749
8 Beiträge
Kalenderwoche "von bis" über VBA
bis"

Hi Leute,
ich versuch gerade über VBA eine Tabelle zu erstellen. Irgendwie komm ich aber nicht weiter.
Spalte A: Kalenderwoche z.b 1,2,3,4,5, usw.
SpalteB: Datum von bis: 1.1.09-5.1.09; 6.1.09-13.1.09; usw.
Dahinter wird je nach Bedarf eingetragen.
Auffüllen der Zahlen ist k...
19.08.2008 10:24:25
Thread-ID: 1002828
3 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
4
1
10
4
2
5
2
12
7
2
2
1
1
7
1
2
5
4
5
2
6
2
2
4
2