Formel als VBA-Code

Sub ZELLEA1()
Wenn Anzahlleerezellen (B1:D1) > 0, dann
in Zelle A1 eingeben: "Mindestens eine Eingabe fehlt noch"
sonst wenn Summe (B1:D1) > 999, dann
in Zelle A1 den Wert 1000 eingeben
sonst wenn Zelle (B1) - Zelle (C1) = Zelle (D1), dann
in Zelle A1 die Formel = "Zelle (B1)* Zelle (C1)" eingeben
sonst wenn Summe (B1:D1) > 2000, dann
in Zelle A1 den Text "Ziel erreicht" eingeben
sonst
in Zelle A1 den Text "XXX" eingeben
END IF
End Sub