Nachtrag Schleifen ? Etiketten drucken
12.02.2015 13:25:20
René
Kam leider nicht an den ursrünglichen Eintrag heran , Daher ein neuer
wie müsste ich den Code anpassen um zu erreichen,
das wenn ( ianz = .Cells(i, 4).Value = 0 )nicht gedruckt wird ?
Sub druck2() '
Dim letztezeile As Long
Dim i As Long
Dim wkssource As Worksheet
Dim wksDest As Worksheet
Set wkssource = ThisWorkbook.Sheets("Etiketten druck")
Set wksDest = ThisWorkbook.Sheets("VDA-Label ENG")
With Sheets("Etiketten druck")
letztezeile = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To letztezeile
wksDest.Cells(10, 1).Value = .Cells(i, 1).Value 'kopiert Spalte A nach A10
wksDest.Cells(14, 1).Value = .Cells(i, 3).Value 'kopiert Spalte C nach A14
ianz = .Cells(i, 4).Value
wksDest.PrintOut Copies:=ianz, Collate:=True, IgnorePrintAreas:=False
Next i
End With
End Sub
Vielen Dank
Anzeige