Das sieht perfekt aus, nur leuchtet bei mir das End With rot und beim Durchlauf wird bei Sub kopieren() Sub oder Funktion nicht definiert angezeigt. Woran kann das liegen?