AW: Zellen auf eine Seite an versch. Stellen ausdruck
20.04.2012 16:28:00
Jens
Hallo Stef@n
Versuch mal:
Sub tt()
Dim LoQuelle As Long
For LoQuelle = 4 To Worksheets("Quelle").Range("A65536").End(xlUp).Row
On Error Resume Next
With Worksheets("DinA4")
.Cells(1, 1) = Worksheets("quelle").Range(.Cells(1, 2) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(1, 2) & LoQuelle)
.Cells(1, 3) = Worksheets("quelle").Range(.Cells(1, 4) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(1, 4) & LoQuelle)
.Cells(1, 5) = Worksheets("quelle").Range(.Cells(1, 8) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(1, 8) & LoQuelle)
.Cells(1, 9) = Worksheets("quelle").Range(.Cells(1, 10) & 3) & ": " & Worksheets("quelle"). _
Range(.Cells(1, 10) & LoQuelle)
.Cells(1, 11) = Worksheets("quelle").Range(.Cells(1, 12) & 3) & ": " & Worksheets("quelle"). _
Range(.Cells(1, 12) & LoQuelle)
.Cells(2, 9) = Worksheets("quelle").Range(.Cells(2, 10) & 3) & ": " & Worksheets("quelle"). _
Range(.Cells(2, 10) & LoQuelle)
.Cells(2, 11) = Worksheets("quelle").Range(.Cells(2, 12) & 3) & ": " & Worksheets("quelle"). _
Range(.Cells(2, 12) & LoQuelle)
.Cells(3, 1) = Worksheets("quelle").Range(.Cells(3, 6) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(3, 6) & LoQuelle)
.Cells(3, 7) = Worksheets("quelle").Range(.Cells(3, 12) & 3) & ": " & Worksheets("quelle"). _
Range(.Cells(3, 12) & LoQuelle)
.Cells(4, 1) = Worksheets("quelle").Range(.Cells(4, 6) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(4, 6) & LoQuelle)
.Cells(4, 7) = Worksheets("quelle").Range(.Cells(4, 12) & 3) & ": " & Worksheets("quelle"). _
Range(.Cells(4, 12) & LoQuelle)
.Cells(5, 1) = Worksheets("quelle").Range(.Cells(5, 12) & 3) & ": " & Worksheets("quelle"). _
Range(.Cells(5, 12) & LoQuelle)
.Cells(6, 1) = Worksheets("quelle").Range(.Cells(6, 2) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(6, 2) & LoQuelle)
.Cells(6, 3) = Worksheets("quelle").Range(.Cells(6, 4) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(6, 4) & LoQuelle)
.Cells(6, 5) = Worksheets("quelle").Range(.Cells(6, 6) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(6, 6) & LoQuelle)
.Cells(6, 7) = Worksheets("quelle").Range(.Cells(6, 8) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(6, 8) & LoQuelle)
.Cells(6, 9) = Worksheets("quelle").Range(.Cells(6, 10) & 3) & ": " & Worksheets("quelle"). _
Range(.Cells(6, 10) & LoQuelle)
.Cells(6, 11) = Worksheets("quelle").Range(.Cells(6, 12) & 3) & ": " & Worksheets("quelle"). _
Range(.Cells(6, 12) & LoQuelle)
.Cells(7, 1) = Worksheets("quelle").Range(.Cells(7, 2) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(7, 2) & LoQuelle)
.Cells(7, 3) = Worksheets("quelle").Range(.Cells(7, 4) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(7, 4) & LoQuelle)
.Cells(7, 7) = Worksheets("quelle").Range(.Cells(7, 8) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(7, 8) & LoQuelle)
.Cells(7, 11) = Worksheets("quelle").Range(.Cells(7, 12) & 3) & ": " & Worksheets("quelle"). _
Range(.Cells(7, 12) & LoQuelle)
.Cells(8, 1) = Worksheets("quelle").Range(.Cells(8, 2) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(8, 2) & LoQuelle)
.Cells(8, 3) = Worksheets("quelle").Range(.Cells(8, 4) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(8, 4) & LoQuelle)
.Cells(8, 5) = Worksheets("quelle").Range(.Cells(8, 6) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(8, 6) & LoQuelle)
.Cells(8, 7) = Worksheets("quelle").Range(.Cells(8, 8) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(8, 8) & LoQuelle)
.Cells(8, 9) = Worksheets("quelle").Range(.Cells(8, 12) & 3) & ": " & Worksheets("quelle"). _
Range(.Cells(8, 12) & LoQuelle)
.Cells(9, 1) = Worksheets("quelle").Range(.Cells(9, 2) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(9, 2) & LoQuelle)
.Cells(9, 3) = Worksheets("quelle").Range(.Cells(9, 4) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(9, 4) & LoQuelle)
.Cells(9, 5) = Worksheets("quelle").Range(.Cells(9, 6) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(9, 6) & LoQuelle)
.Cells(9, 7) = Worksheets("quelle").Range(.Cells(9, 8) & 3) & ": " & Worksheets("quelle").Range( _
.Cells(9, 8) & LoQuelle)
.Cells(9, 9) = Worksheets("quelle").Range(.Cells(9, 12) & 3) & ": " & Worksheets("quelle"). _
Range(.Cells(9, 12) & LoQuelle)
End With
Worksheets("DinA4").PrintOut
Next
End Sub
Gruß Jens