Habe mal wieder eine Frage bei der ich Euch Hilfe bräuchte. Ich habe ein Makro wo ich Packscheine ausdrucke. Nun wollte ich dies umschreiben um Lieferscheine aus zu drucken. Bis zu einem gewissen Punkt ging es auch, aber es kommt immer der Fehler
Set raWeg = .Cells(4, i).Offset(-3, -4).Resize(43, 5)
. Was muss ich noch ändern das es funktioniert? Für Hilfe wäre ich sehr dankbar. Hier noch der ganze code Beispieldatei habe ich angehängt
Public Sub Lieferscheine_drucken_Lieferscheine_Nord()
Dim i As Long, ws As Worksheet, raWeg As Range
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "Liefer Nord*" Then
With ws
For i = 4 To 170 Step 5
If WorksheetFunction.Sum(.Cells(4, i)) > 0 Then
If raWeg Is Nothing Then
Set raWeg = .Cells(4, i).Offset(-3, -4).Resize(43, 5)
Else
Set raWeg = Union(raWeg, .Cells(4, i).Offset(-3, -4).Resize(43, 5))
End If
End If
Next i
If Not raWeg Is Nothing Then
raWeg.PrintPreview
End If
End With
End If
Set raWeg = Nothing
Next ws
Set raWeg = Nothing
End Sub
https://www.herber.de/bbs/user/157502.xlsx
LG Robert