Hallo Volker,
nachfolgendes Makro sollte dies erfüllen.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Kopieren()
With Sheets("Aufmaß")
.Range("A2:AZ2").Copy _
Sheets("Leitungs_Nr").Cells(.Range("C4") + 3, 16)
End With
End SubMfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]