Excel-Formel in Excel-VBA umwandeln

[webwurm]

Liebe WCM-Gemeinde!

Ich kämpfe seit 2 Stunden und komm nicht mehr weiter. Vielleicht könnt ihr mir helfen!

Ich habe ein Excel-Sheet mit folgender Formel:
=WENN(UND(E9=0;D9>0);0;WENN(E9<=0;180;0)+WENN(D9=0 ;90;REST(GRAD(ARCTAN(E9/D9))+180;180)))

Wobei in D9 und in E9 Zahlen stehen (X-, Y-Koordinate im kartesischen Koordinatensystem)

Ich bräuchte die Formel in VBA, da ich das Ergebnis (Winkel im Polarkoordinatensystem) gerne als Funktion berechnen würde.

Leider gelingt es mir nicht, die Formel in VBA nachzubasteln. Vor allem gelingt es mir nicht, die If-Abfragen richtig zu schachteln...

Vielen Dank für Eure Hilfe!!
lg
manuel