Stapelverarbeitung - Bereich eingrenzen
11.03.2022 09:05:32
Lönne75
ich habe eine aktive Stapelverarbeitung die auch wunderbar läuft, jedoch durch verschieden Störfaktoren immer wieder mal unterbrochen/abgebrochen wird.
Da der Neustart immer in Zeile 1 der Datenbank beginnt ist dies unter Umständen sehr Mühsam.
D.h meine Frage, kann mir jemand untenstehendes Makro so anpassen, dass ich den Bearbeitungsbereich genau eingrenzen kann, sprich den genauen Bereich von/-bis Zeile vorgeben kann.
Beispiel; wenn ich in Zeile 3333 eine Störung habe, ich dann hier auch genau wieder starten kann.
Sub UDE_Stapelverarbeitung_Deutsch()
Dim TB1 As Worksheet
Dim TB2 As Worksheet
Dim TB3 As Worksheet
Dim TB4 As Worksheet
Dim LR2 As Integer
Dim i As Integer
Dim SP As Integer
Dim ZRNG As Range
Set TB1 = Sheets("Deutsch_L")
Set TB2 = Sheets("Datenbank")
Set TB3 = Sheets("Deutsch_C")
Set TB4 = Sheets("UDE DEU")
Set ZRNG = TB1.Range("AJ11")
SP = 3 ' EAN Nummern sind jetzt in Spalte A =1 gelistet
LR2 = TB2.Cells(TB2.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For i = 2 To LR2
ZRNG = TB2.Cells(i, SP)
ActiveWorkbook.Save
Debug.Print i, ZRNG
'ChDir "A:\Ablage\Datenblaetter"
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="A:\Ablage\402" & Range("S9"), Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
TB1.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\01 Stapelverarbeitung\10 RO\10 PDF\10 Deutsch\tue\402" & _
TB1.Range("AJ11"), Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
TB3.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\01 Stapelverarbeitung\10 RO\20 PDF\10 Deutsch\tue\402" & _
TB1.Range("AJ11"), Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
TB4.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\01 Stapelverarbeitung\10 RORO\15 PDF\10 Deutsch\tue\402" & _
TB1.Range("AJ11"), Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
Next
End Sub