|
ich will ja nicht stören aber ich habe auch noch eine Idee, nachdem ich glaube dein Konstrukt endlich kapiert zu haben.
dim i&
For intZeilen = 3 To wksTab1.Cells(Rows.Count, 1).End(xlUp).Row
wksTab2.Range("A5") = wksTab1.Cells(intZeilen, 1)
wksTab2.Range("A4") = wksTab1.Cells(intZeilen, 4)
wksTab2.Range("A3") = wksTab1.Cells(intZeilen, 3)
wksTab2.Range("A2") = wksTab1.Cells(intZeilen, 6)
wksTab2.Range("A1") = wksTab1.Cells(intZeilen, 5)
for i=1 to wksTab1.Cells(intZeilen, 2)
wksTab2.Range("B7") = i & " von " & wksTab1.Cells(intZeilen, 2)
wksTab2.PrintOut Copies:=1, Preview:=0, Collate:=1, IgnorePrintAreas:=0
next
Next
|