Druckmakro abändern
31.05.2021 20:41:56
Robert
Ich habe mal wieder ein Problem bei welchen ich Eure Hilfe bräuchte. Ich habe ein Exelmakro bei welchen ich verschiedene Seiten über Algorithmus nach Bedarf ausdrucke. Den Teil der den Druckbereich .Range("EY1:FE28")) aufruft sollte weg. Wie kann ich das bewerkstelligen. Habe schon einiges probiert, aber immer mit Fehlermeldung.
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 103 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
Vielen lieben Dank im voraus.LG Robert