Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Drucken von Liefer mit Makro

Drucken von Liefer mit Makro
27.01.2023 13:15:56
Liefer
Hallo liebe Exelgemeinde!
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

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
Beispieldatei habe ich angehängt
https://www.herber.de/bbs/user/157502.xlsx
LG Robert

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken von Liefer mit Makro
27.01.2023 13:54:55
Liefer
Hallo
i= 4
Cells(4,i).Offset(-3,-4) ergibt Spalte 0 !!!

                    If raWeg Is Nothing Then
                        Set raWeg = .Cells(4, i).Offset(-3, -3).Resize(43, 5)
                    Else
                        Set raWeg = Union(raWeg, .Cells(4, i).Offset(-3, -3).Resize(43, 5))
                    End If
Peter
AW: Drucken von Liefer mit Makro
27.01.2023 14:25:43
Liefer
Hallo Robert,
geht es so?
If raWeg Is Nothing Then
Set raWeg = .Cells(4, i).Offset(-3, -3).Resize(43, 5)
Else
Set raWeg = Union(raWeg, .Cells(4, i).Offset(-3, -3).Resize(43, 5))
End If
Gruß Gerd
Anzeige
AW: Drucken von Liefer mit Makro
28.01.2023 21:19:14
Liefer
Hallo Peter und Gerdl!
Ich danke Euch von ganzen Herzen. Es funzt.
LG Robert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige