Morgen,
würde gerne folgenden Code verbessern:
Cells(z, 1).Select
Selection.Copy
Sheets("Dok").Select
Range("D10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
z ist die jeweils aktive Reihe.
Danke für jede Hilfe.
Gruß Andi