Guten Mittag zusammen,
Ich habe folgenden Code:
Sub BlattAusdruck()
Dim a As Integer
Dim b As Integer
Dim v As Integer
Dim n As Integer
For a = 9 To 10
For b = 9 To 10
For v = 9 To 10
For n = 9 To 10
Sheets("Umplatzierung").Select
Cells(a, 1).Copy
Sheets("Vorlage").Select
Range("D47").PasteSpecial
'ActiveSheet.Select
Sheets("Umplatzierung").Select
Cells(b, 4).Copy
Sheets("Vorlage").Select
Range("L47").PasteSpecial
'ActiveSheet.Select
Sheets("Umplatzierung").Select
Cells(v, 2).Copy
Sheets("Vorlage").Select
Range("D11").PasteSpecial
'ActiveSheet.Select
Sheets("Umplatzierung").Select
Cells(n, 3).Copy
Sheets("Vorlage").Select
Range("D28").PasteSpecial
'ActiveSheet.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Next
Next
Next
Next
End Sub
----------------------------------------
Funktioniert alles einwandfrei bis auf das Drucken. Das Makro soll wenn alle 4 Daten eingefügt wurden EINMAL das "Vorlage" Blatt drucken. Bisher druckt er es sehr oft aus (weiss leider nicht warum).
Kann mir vllt jemand weiterhelfen? Danke schonmal....
LG
|