Hallo Domei,
ändere mal in dem Makro von mir in der Zeile
Sheets("Kundennummer").Range("B4").Copyden Blattnamen in "Kundennummer neu", also lautet die Zeile dann
Sheets("Kundennummer neu").Range("B4").Copydann sollte es funktionieren.
Wobei ich nicht so richtig weiß, was Du eigentlich gegen Rainers Makro hast, denn das macht eigentlich auch dass, was Du willst.
MfG,
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]