Guten Tag Zusammen,
ich möchte per Knopfdruck auf eine Befehlsschaltfläche, Eintrage in der Tabelle zurücksetzen und in bestimmte Zellen eine Formel schreiben.
Die gewünschten Einträge lassen sich zurücksetzen und die Formeln werden in die gewünschte Zelle geschrieben, allerdings klappt das mit den Formeln nur einzeln.
Das heißt, wenn ich den Code (wie unterhalb) schreibe, füllt er nur eine Zelle (1/4) mit der gewünschten Formel, die anderen drei Zellen werden nicht befüllt. Ich habe alle Formeln einzeln getestet und diese funktionieren auch soweit.
Ich bitte um Hilfe, der Code muss so funktionieren, dass per Knopfdruck auf die Befehlsschaltfläche alle Zellen mit der entsprechenden Formel befüllt werden
ich möchte per Knopfdruck auf eine Befehlsschaltfläche, Eintrage in der Tabelle zurücksetzen und in bestimmte Zellen eine Formel schreiben.
Die gewünschten Einträge lassen sich zurücksetzen und die Formeln werden in die gewünschte Zelle geschrieben, allerdings klappt das mit den Formeln nur einzeln.
Das heißt, wenn ich den Code (wie unterhalb) schreibe, füllt er nur eine Zelle (1/4) mit der gewünschten Formel, die anderen drei Zellen werden nicht befüllt. Ich habe alle Formeln einzeln getestet und diese funktionieren auch soweit.
Quellcode
- Range("C8").Formula = "=WENN($AA1=1,"""",WENN($AA1=2,""FERTIGUNGSMATERIAL"",""ERSATZTEIL""))"
- Range("C8").Select
- Application.SendKeys "{F2}" + "{ENTER}", True
- Range("F8").Formula = "=WENN($AA$1=1,WENN(ISTLEER(F7),"""",RUNDEN(F7*20/100,-1)),WENN($AA$1=2,"""",WENN(ISTLEER(F7),"""",WENN(H13="""","""",WENN(ISTFEHLER(H13*F7/D63),"""",RUNDEN(H13*F7/D63,-1))))))"
- Range("F8").Select
- Application.SendKeys "{F2}" + "{ENTER}"
- Range("D34").Formula = "=I24*0.01"
- Range("D34").Select
- Application.SendKeys "{F2}" + "{ENTER}", True
- Range("I74").Formula = "=WENN($AA$1=1,"""",WENN($AA1=2,""FM"",""ET""))"
- Range("I74").Select
- Application.SendKeys "{F2}" + "{ENTER}", True
Ich bitte um Hilfe, der Code muss so funktionieren, dass per Knopfdruck auf die Befehlsschaltfläche alle Zellen mit der entsprechenden Formel befüllt werden