Hallo Mase
Ich habe es in tabelle formatiert. sobald ich aber den makro starte erhalte ich keine Rückmeldung. Ich sehe aber in längere zeitabständen wie die Felder gefüllt werden. auf lange Sicht denke ich schmiert der PC ab.
Die Datei wird Wöchentliche erstellt und abgespeichert. Sprich jede Woche eine neue Datei. Hierzu bräuchte Excel keine Neuberechnungen durchführen.
Meine Makro sieht aktuell wie folgt aus
Range("C5").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(IF(RC[-2]=VLOOKUP(RC[-2],MATERIAL1!C[-2],1,FALSE),""YES"",""NO""),""NO"")"
Range("D5").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(IF(RC[-3]=VLOOKUP(RC[-3],Material2!C[-3],1,FALSE),""YES"",""NO""),""NO"")"
Range("F5").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC[-5],Material3!C[-5]:C[-1],5,FALSE),"""")"
Range("G5").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(IF(RC[-6]=VLOOKUP(RC[-6],Material4!C[-5],1,FALSE),""YES"",""NO""),""NO"")"
Range("H5").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC[-7],Material5!C[-7]:C[-4],4,FALSE),"""")"
Range("I5").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC[-8],Origin!C[-8]:C[-1],7,FALSE),"""")"
Range("J5").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC[-9],Origin2!C[-9]:C[-2],8,FALSE),"""")"
Range("E5").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[4]="""",""NO"",IF(RC[4]=""Text"",""NO"",IF(AND(RC[4]=""Text"",RC[3]<10),""text"",IF(OR(RC[4]=""text"",RC[4]=""Text""),""YES"",""Text""))))"
Range("C5:J5").Select
Selection.Copy
Range("C6").Select
ActiveSheet.Paste
Range("C7").Select
ActiveSheet.Paste
Range("C8").Select
ActiveSheet.Paste
Range("C9").Select
ActiveSheet.Paste
Range("C10").Select
ActiveSheet.Paste
Range("C11").Select
ActiveSheet.Paste
Range("C12").Select
ActiveSheet.Paste
Range("C13").Select
ActiveSheet.Paste
Range("C14").Select
ActiveSheet.Paste
Range("C15").Select
ActiveSheet.Paste
Range("C16").Select
ActiveSheet.Paste
Range("C17").Select
ActiveSheet.Paste
Range("C18").Select
ActiveSheet.Paste
Range("C19").Select
ActiveSheet.Paste
Range("C20").Select
ActiveSheet.Paste
Range("C21").Select
ActiveSheet.Paste
Range("C22").Select
ActiveSheet.Paste
Range("C23").Select
ActiveSheet.Paste
Range("C24").Select
ActiveSheet.Paste
Range("C25").Select
ActiveSheet.Paste
Range("C26").Select
ActiveSheet.Paste
Range("C27").Select
ActiveSheet.Paste
Range("C28").Select
ActiveSheet.Paste
Range("C29").Select
ActiveSheet.Paste
Range("C30").Select
ActiveSheet.Paste
Range("C31").Select
ActiveSheet.Paste
Range("C32").Select
ActiveSheet.Paste
Range("C33").Select
ActiveSheet.Paste
Range("C34").Select
ActiveSheet.Paste
Range("C35").Select
ActiveSheet.Paste
Range("C36").Select
ActiveSheet.Paste
Range("C37").Select
ActiveSheet.Paste
Range("C38").Select
ActiveSheet.Paste
Range("C39").Select
ActiveSheet.Paste
Range("C40").Select
ActiveSheet.Paste
Range("C41").Select
ActiveSheet.Paste
Range("C42").Select
ActiveSheet.Paste
Range("C43").Select
ActiveSheet.Paste
Range("C44").Select
ActiveSheet.Paste
Range("C45").Select
ActiveSheet.Paste
Range("C46").Select
ActiveSheet.Paste
Range("C47").Select
ActiveSheet.Paste
Range("C48").Select
ActiveSheet.Paste
Range("C49").Select
ActiveSheet.Paste
Range("C50").Select
ActiveSheet.Paste
Range("C51").Select
ActiveSheet.Paste
Range("C52").Select
ActiveSheet.Paste
Range("C53").Select
ActiveSheet.Paste
Range("C54").Select
ActiveSheet.Paste
Range("C55").Select
ActiveSheet.Paste
Range("C6:J55").Select
Selection.Copy
Range("C56").Select
ActiveSheet.Paste
Range("C106").Select
ActiveSheet.Paste
Range("C156").Select
ActiveSheet.Paste
Range("C206").Select
ActiveSheet.Paste
Range("C256").Select
ActiveSheet.Paste
Range("C306").Select
ActiveSheet.Paste
Range("C356").Select
ActiveSheet.Paste
Range("C406").Select
ActiveSheet.Paste
Range("C456").Select
ActiveSheet.Paste
Range("C506").Select
ActiveSheet.Paste
Range("C556").Select
ActiveSheet.Paste
Range("C606").Select
ActiveSheet.Paste
Range("C656").Select
ActiveSheet.Paste
Range("C706").Select
ActiveSheet.Paste
Range("C756").Select
ActiveSheet.Paste
Range("C806").Select
ActiveSheet.Paste
Range("C856").Select
ActiveSheet.Paste
Range("C906").Select
ActiveSheet.Paste
Range("C956").Select
ActiveSheet.Paste
Range("C1006").Select
ActiveSheet.Paste
Range("C1056").Select
ActiveSheet.Paste
Range("C1106").Select
ActiveSheet.Paste
Range("C1156").Select
ActiveSheet.Paste
Range("C1206").Select
ActiveSheet.Paste
Range("C1256").Select
ActiveSheet.Paste
Range("C1306").Select
ActiveSheet.Paste
Range("C1356").Select
ActiveSheet.Paste
Range("C1406").Select
ActiveSheet.Paste
Range("C1456").Select
ActiveSheet.Paste
Range("C1506").Select
...
|