Office: (Office 365) Wenn Zelle B,D,G,I,L,N,P nicht leer ist soll ein Wert in Zelle J eingetragen werden

Hallo,

ich mochte uber VBA das meine Zelle In J8:J5000 automatisch eingetragen werden.

wenn zum beispiel Colum B8 leer is das dann in Colum J8 steht kann geplannt werden
wenn in Colum D8 ein wert steht das dann in Colum J8 steht geplannt
wenn B8 = "" then in Colum J8 "kann Geplannt werden"
wenn D8 = "" then in Colum J8 "Lieferdatum fehlt"
wenn G8 = "" then in Colum J8 "Geplannt Ohne Auftrag"
Wenn I8 = "" then in Colum J8 "Kann Bearbeitet werden"
wenn L8 = "" then in Colum J8 "in Bearbeitung "
wenn N8 = "" then in Colum J8 "Bearbeitet"
wenn P8 = "" then in Colum J8 "Auftrag geschlossen"

ich hatte in jeder zelle diese formel stehen und ich mochte das uber VBA automatisch einfugen, wenn die zelle sich Verändert (füllt)
=WENN(N13="";"Bearbeitet";
WENN(P13;"Auftrag geschlossen";
WENN(L13;"in Bearbeitung ";
WENN(I13;"Kann Bearbeitet werden";
WENN(G13;"Geplannt Ohne Auftrag";
WENN(D13;"Liefer Datum";
WENN(B13;"kann Geplant werden";"kann Geplant werden")))))))

vielen dank fur jede hilfe,