ich habe nun die Formel aus dem Direktfenster mittels Debug Print kopiert.
Da ich die Formel von 2 bis letzte Zeile kopiere benutze ich Range("AZ2:AZ" & letzteZeile).Formula
Beim Ausführen bekomme ich den Fehler:
Application Defined or Object Defined Error
Range("AZ2:AZ" & letzteZeile).Formula = "=IF(AND(P2=""TS"";OR(X2=1;X2=7));CONCATENATE(""IMOTS"";AD2);IF(P2=""TS"";CONCATENATE(""STANDARDTS"";AD2);IF(AY2=""STANDARD"";CONCATENATE(AY2;Z2;AA2;AB2;AC2;AD2);IF(ISERROR(VLOOKUP(CONCATENATE(AY2;Z2;AA2;AB2;AC2;AD2;S2);'Vereinbarungen & Container Typ'!D:D;1;FALSE));CONCATENATE(AY2;Z2;AA2;AB2;AC2;AD2);CONCATENATE(AY2;Z2;AA2;AB2;AC2;AD2;S2)))))"
Mit freundlichen Grüßen
Henry