10.03.2015, 20:02
10.03.2015, 22:03
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
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
11.03.2015, 19:40
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 ...
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 ...
11.03.2015, 19:54
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):
Gruß Uwe
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
11.03.2015, 21:01
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
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
11.03.2015, 21:12
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
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
11.03.2015, 21:52
Hallo Uwe, sorry hab ich übersehen.
habs jetzt nochmal gemacht und hab dann hier:
.Cells(3, 1).PasteSpecial xlValues
ein Problem
habs jetzt nochmal gemacht und hab dann hier:
.Cells(3, 1).PasteSpecial xlValues
ein Problem
11.03.2015, 22:52
Hallo Clemens,
zeig doch die Datei, die Du jetzt benutzt. Hänge sie bitte direkt hier als Attachment an.
Gruß Uwe
zeig doch die Datei, die Du jetzt benutzt. Hänge sie bitte direkt hier als Attachment an.
Gruß Uwe
12.03.2015, 18:39
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
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
12.03.2015, 22:13
Hallo Clemens,
habe Deine Datei heruntergeladen. Uwe's letzter code läuft durch ... Nur noch mal zur Sicherheit - Du hast Excel 2003?
habe Deine Datei heruntergeladen. Uwe's letzter code läuft durch ... Nur noch mal zur Sicherheit - Du hast Excel 2003?