Sheets("Datas").Select
Rows("3:3").Select
mynum = Application.InputBox("Kundennummer")
Selection.AutoFilter Field:=4, Criteria1:=mynum
Dim letzteZeile As Long
letzteZeile = Range("a1048576").End(xlUp).Row
Range("a1:am" & letzteZeile).Copy
Workbooks.Open "C:\testFormatvorlage.xltx"
Range("a13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
<span style="display: inline !important; float: none; background-color: rgb(255, 255, 255); color: rgb(34, 34, 34); font-family: Arial,Verdana,sans-serif; font-size: 12px; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; orphans: 2; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: normal; word-spacing: 0px;">Alles weitere passiert in der neuen Datei ohne Problem... geht mir nur das mynum-Tier mit den Werten aus aktivierten Häkchen zu ersetzen und dann in Serienbrief-Manier die Kunden 1 bis 100+ (sofern aktiviert) da durchlaufen zu lassen.
</span>
L.