Hallo Nepomuk,
nochmal die Frage nach dem Fehler in meiner Codezeile, da ich noch eine Wenn-Abfrage einbauen mußte funktioniert es wieder nicht:
.Cells(Zeile, coSchichtNrS + 4).FormulaLocal =_
"=WENN(ODER(E18="";D19="");"";ACHSENABSCHNITT(E18:E19;D18:D19))"
Karsten