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.


definierte Zellen drucken
#1
Hallo, ich möchte bestimmte Zellen drucken.
In der Tabelle sind in Spalte C manche mit "1" markiert, diese sollen dann zusammen mit Zelle A gedruckt werden. kann mir da jemand helfen?
https://onedrive.live.com/redir?resid=FC...D0DA%21134

Danke für Eure Hilfe
barried
to top
#2
Hi,

ich habe kein XL2003 - im Anhang habe ich deine veränderte Datei (mit XL2007 im Kompatibilitätsmodus) hochgeladen. Vllt. hilft dir das schon mal weiter.

Was habe ich gemacht?

Deine Zeile 8 habe ich zu einer "unsichtbaren" Überschriftenzeile verändert (Kopie deiner Überschriften aus Zeile 5 mit Schriftfarbe weiß). Danach Zeile 8 bis Zeile 48 markiert und mit STRG-T zu einer Tabelle umgewandelt - Tabellenformatvorlage ohne Formatierung. Jetzt kannst du mit dem Filterpfeil in Sp. C nach 1 filtern und drucken.


.xls   barried-Verkäuferliste_XL2007.xls (Größe: 43 KB / Downloads: 6)
?mage

Misserfolg ist eine Chance, es beim
nächsten Mal besser zu machen.

(Henry Ford)
http://www.sprueche-zum-nachdenken.eu
to top
#3
Hallo, erstmal danke für deine schnelle Antwort, aber ich habe vergessen zu sagen, dass ich von den Verkäuferlisten 200 Blätter in einer Mappe habe und da sollen eben dann nur die mit 1 markierten Artikel mit der dazugehörigen Nummer (nur die Nummer, ohne Bezeichnung) ausgedruckt werden, um die Artikel beim zurücksortieren kontrollieren zu können.

Gruß barried
to top
#4
Hi,

da werde ich dir wohl nicht mehr weiterhelfen können. Ich denke, falls das überhaupt geht, wird hier ein Makro gebraucht werden.
?mage

Misserfolg ist eine Chance, es beim
nächsten Mal besser zu machen.

(Henry Ford)
http://www.sprueche-zum-nachdenken.eu
to top
#5
Hallo,
OK, trotzdem danke
to top
#6
Hallo barried,

für ein Makro wären noch ein paar Angaben nötig.

Kann man die Blätter eindeutig von anderen wie Etiketten usw. unterscheiden, z.B. anhand des Namens? Wichtig wäre, dass das ein gemeinsames "Kennzeichen" ist, z.B. alle Blätter dieser Sorte fangen mit "V" an, die anderen nicht.

Soll für jedes Blatt ein Ausdruck erfolgen oder soll möglichst alles zusammen auf ein oder wenige Blätter, dann eventuell auch mehrspaltig?
Falls letzteres, brauchst Du weitere Angaben, z.B. den Verkäufer?
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top
#7
Hallo Andrè,
es sind NUR V01, V02...V200 in der Mappe vorhanden.
Es sollte nach Möglichkeit jede V-Liste auf ein Blatt gedruckt werden, aber halt nur alles was mit "0" drin steht.
So in etwa:
02-02 2 0
02-04 2 0
02-05 2 0
02-07 2 0
02-08 2 0
02-09 2 0
02-12 2 0
02-13 2 0
02-14 2 0
02-15 2 0
02-16 2 0
02-17 2 0
02-18 2 0
02-19 2 0
02-20 2 0
02-21 2 0
02-22 2 0
02-23 2 0
02-26 2 0
02-27 2 0
02-28 2 0
02-30 2 0
02-31 2 0
02-32 2 0
02-33 2 0
02-34 2 0
02-35 2 0
02-37 2 0
02-38 2 0
02-40 2 0
Und das dann auf eine A4 Seite, jeweils für jede Liste, sprich 200 Ausdrucke.
Hoffe die Info reicht dir.
Gruß Clemens
to top
#8
Hallo Clemens,

Code:
Sub VerkaeuferlistenDrucken()
 Dim oWsQ As Worksheet, oWsZ As Worksheet
 Set oWsZ = Workbooks.Add(-4167).Worksheets(1)
 For Each oWsQ In ThisWorkbook.Worksheets
   If Left(oWsQ.Name, 1) = "V" And IsNumeric(Mid(oWsQ.Name, 2)) Then
     oWsQ.Cells(9, 1).CurrentRegion.Columns("A:C").Copy
     With oWsZ
       .Cells(1, 1).Value = oWsQ.Name
       .Cells(3, 1).PasteSpecial xlValues
       .Columns.AutoFit
       .Range("A2:C2").AutoFilter 3, "=0"
       .PrintPreview 'zum Testen
       '.PrintOut
       .Cells.Delete
     End With
   End If
 Next oWsQ
 oWsZ.Parent.Close False
End Sub

Siehe Wie fügt man ein Makro oder eine benutzerdefinierte Funktion in ein Modul ein?

Gruß Uwe
to top
#9
Hallo Uwe,
danke für das Makro.
Hab ich eingefügt, muss ich dann nur auf drucken gehen oder wie? Sorry wenn ich blöd frag.

Gruß Clemens
to top
#10
Hallo Clemens,

(08.03.2015, 13:56)barried schrieb: Hallo Uwe,
danke für das Makro.
Hab ich eingefügt, muss ich dann nur auf drucken gehen oder wie? Sorry wenn ich blöd frag.

Gruß Clemens

drücke Alt+F8 und wähle das Makro aus.

Gruß Uwe
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  VBA: Grafik einfügen und Makro zuweisen, Drucken und PDF-Erstellung andifreak 1 97 25.09.2016, 16:06
Letzter Beitrag: schauan
  Definierte Textpassagen in Excel importieren KEIKOO 5 251 06.09.2016, 19:50
Letzter Beitrag: Fennek
  Gefilterte Daten drucken Geri 10 741 26.07.2016, 16:51
Letzter Beitrag: Käpt'n Blaubär
  Wiederholen von Zeilenbeschriftungen beim Drucken Ernesto 5 408 25.06.2016, 12:07
Letzter Beitrag: Ernesto
  definierte Anzahl an Zeilen automatisch erstellen JamesCole 1 216 01.06.2016, 09:38
Letzter Beitrag: Rabe
  Dateien drucken (verschiedene Dateitypen) friedensbringer 2 453 06.04.2016, 14:25
Letzter Beitrag: friedensbringer
  per Makro alle Tabellenblätter mit gleichem Druckbereich drucken Mike4711 10 1.087 04.03.2016, 17:19
Letzter Beitrag: Mike4711
  2 Druckbereiche in 1 Pdf mit 2 Seiten drucken darkdan 4 457 26.02.2016, 08:58
Letzter Beitrag: darkdan
  Drucken verhindern ABER pdf erstellen erlauben Christian19 60 3.143 23.02.2016, 23:46
Letzter Beitrag: Rabe
  Per VBA die Zelladressen drucken, die der Autofilter anzeigtu Nutella 7 883 21.02.2016, 19:35
Letzter Beitrag: Nutella

Gehe zu:


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