with Range("K2").validation
.Delete
.add xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="=BEREICH.VERSCHIEBEN _
(kunde1;0;0;ANZAHL2(kunde1)-ZAEHLENWENN(kunde1;0))"
end with
Wäre sehr dankbar für Hilfen.
Mit freundlichen Grüßen
Matze