Hallo
Langsam wird es langweilig. Ich checke gar nichts mehr. Kann man unteres Modulteil so umschreiben, daß nicht bis zum letzten Eintrag in Spalte A gesucht wird sondern nur bis zur Zeile 64. Ich habe keinen Dunst.
azeintr = Worksheets("Schichtfolge") _
.Range("A65536").End(xlUp).Row