Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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)
Registriert seit: 07.03.2015
Version(en): 2003
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
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallo Clemens,
bei mir hatte es funktioniert. War nur echt viel Holz die ca. 200? Seiten
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)
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
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
Registriert seit: 07.03.2015
Version(en): 2003
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
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
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
Registriert seit: 07.03.2015
Version(en): 2003
Hallo Uwe, sorry hab ich übersehen.
habs jetzt nochmal gemacht und hab dann hier:
.Cells(3, 1).PasteSpecial xlValues
ein Problem
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo Clemens,
zeig doch die Datei, die Du jetzt benutzt. Hänge sie bitte direkt hier als Attachment an.
Gruß Uwe
Registriert seit: 07.03.2015
Version(en): 2003
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
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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)