Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

definierte Zellen drucken
#21
Hallo Clemens,

bekommst Du raus, auf welcher Seite der Fehler auftritt? Müsste ja die erste sein, wo keine pdf rausgekommen ist.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#22
Hallo Andrè
Kannst mir vielleicht nochmal Schritt für Schritt erklären, was ich wo machen soll, glaub ich hab irgendwo ein Fehler.
Funktioniert es bei Dir?
Gruß Clemens
Antworten Top
#23
Hallo Clemens,

bei mir hatte es funktioniert. War nur echt viel Holz die ca. 200? Seiten Wink
ich habe jetzt nochmal die Datei aus dem Internet runter geladen und Uwe's letzten code eingefügt. Damit ich nicht wieder 200 Druckvorschauen bekomme, habe ich die entsprechende Zeile auskommentiert. Der code läuft damit durch.

Ich wollte von Dir eigentlich nur wissen, bei welcher Druckseite der Fehler kommt. Es könnte ja sein, der Fehler kommt bei V197 und wenn man die Blätter vom V01 an alle der Reihe nach anschaut, dauert es bis da hinten doch eine Weile ...
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#24
Hallo André,

klar läuft der Code mit der von Clemens eingestellten Datei. Also hat Clemens eine andere Datei.
Verbundene Zellen habe ich auch mal getestet, konnte damit jedoch keinen Fehler provozieren.

Hallo Clemens,

teste mal folgenden Code (lösche den vorherigen):

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.Range(oWsQ.Cells(9, 1), oWsQ.Cells(oWsQ.Rows.Count, 3).End(xlUp)).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
      .Range("A2:C2").AutoFilter
      .Cells.Delete
      .Cells(1).Select
    End With
    Application.CutCopyMode = False
  End If
Next oWsQ
oWsZ.Parent.Close False
End Sub

Gruß Uwe
Antworten Top
#25
Hallo Uwe,
kannst du mir nochmal genau sagen, wo ich den Code einfügen und was ich dann machen muss um die Listen zu drucken?
Danke für deine Hilfe

Gruß Clemens
Antworten Top
#26
Hallo Clemens,

im Beitrag #8 steht ein Link zu einer guten Erklärung.
Im Excelfenster rufst Du mit der Tastenkombination Alt+F8 das Makromenü auf und startest dort dann das Makro.

Gruß Uwe
Antworten Top
#27
Hallo Uwe, sorry hab ich übersehen.
habs jetzt nochmal gemacht und hab dann hier:
.Cells(3, 1).PasteSpecial xlValues
ein Problem
Antworten Top
#28
Hallo Clemens,

zeig doch die Datei, die Du jetzt benutzt. Hänge sie bitte direkt hier als Attachment an.

Gruß Uwe
Antworten Top
#29
Hallo Uwe,
die Datei ist zu groß,
https://onedrive.live.com/redir?resid=fc...fcd0da!138&authkey=!ABHe4fFrqTGJRlU&ithint=file%2cxls
Kann nur das hier machen.
Oder per email schicken.
Gruß Clemens
Antworten Top
#30
Hallo Clemens,

habe Deine Datei heruntergeladen. Uwe's letzter code läuft durch ... Nur noch mal zur Sicherheit - Du hast Excel 2003?
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top


Gehe zu:


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