Kopieren und Drucken
01.09.2003 14:42:34
Sifer
Habe eine dringende Frage. Ich habe einen Excel file. Darin habe ich zwei arbeitsblätter. Nun möchte ich bestimmte Zellen aus dem einen, in das andere Arbeitblatt kopieren. Vor jedem weiteren kopieren soll das Zieldokument aber einmal ausgedruckt werden.
Dies ist mein Code:
Sub Daten()
Dim i As Integer
Const spaltename = 4
Const spaltevorname = 5
i = 2
Do Until Worksheets("Datenblatt").Cells(i, 1).Value = ""
Worksheets("Azubis").Cells(i, spaltevorname).Copy Destination:=Worksheets("Datenblatt").Cells(8, 3)
Worksheets("Azubis").Cells(i, spaltename).Copy Destination:=Worksheets("Datenblatt").Cells(7, 3)
Rem Worksheets("Datenblatt").Activate
Rem ActiveSheet.PageSetup.Orientation = xlLandscape
Rem ActiveSheet.PrintOut
Worksheets("Datenblatt").PrintObject
i = i + 1
Loop
End Sub
Die daten werden auch kopiert nur hört er nach der ersten zeile auf, druckt diese dokument und dann passiert nichts mehr, wer kann mir helfen ??
mfg Sifer