Drucken per Makro
21.04.2021 17:55:48
Robert
Brauche mal wieder Eure Hilfe.
Ich habe ein Makro wo ich wie in der Beispieldatei zu sehen eigentlich genau gleiche Seiten drucken. Es soll nur das gedruckt wo in der Zelle E4 in jeder 7. Zelle im Beispiel dann L4 usw. Zahlen größer 0 stehen. Das gleiche gilt ist parallel in der Zeile E20, L20 usw. . Nun mein Problem das geht mit allen Seiten aber bei der Seite Packzetela SA kommt ein Debugfehler. Ich habe schon gesucht verglichen. Ich finde keinen rechten Fehler der dies verursachen könnte. Denn die Seiten sind eigentlich alle gleich aufgeteilt. Es geht bei allen nur bei SA nicht.
Public Sub Packzettel_drucken_Pack1()
Dim i As Long, ws As Worksheet, raWeg As Range
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "Packzettela*" Then
With ws
For i = 5 To 96 Step 7
If WorksheetFunction.Sum(.Cells(4, i), .Cells(20, i)) > 0 Then
If raWeg Is Nothing Then
Set raWeg = .Cells(4, i).Offset(-3, -4).Resize(28, 7)
Else
Set raWeg = Union(raWeg, .Cells(4, i).Offset(-3, -4).Resize(28, 7))
End If
End If
Next i
If Not raWeg Is Nothing Then
Union(raWeg, .Range("EY1:FE28")).PrintPreview
End If
End With
End If
Set raWeg = Nothing
Next ws
Set raWeg = Nothing
End Sub
https://www.herber.de/bbs/user/145703.xlsm
LG Robert
