Excel-Formel in Excel-VBA umwandeln

[webwurm]

JAAAAA, es funktioniert!!! DANKE, DANKE, DANKE!

Hier meine fertige Lösung:

If varPosYrel = 0 And varPosXrel > 0 Then
varWinkelTempA = 0
Else
If varPosYrel <= 0 Then
varWinkelTempA = 180
Else
varWinkelTempA = 0
End If
End If

If varPosXrel = 0 Then
varWinkelTempB = 90
Else
varWinkelTempB = ((Atn(varPosYrel / varPosXrel) * 180 / PI) + 180) Mod 180
End If

varWinkel = varWinkelTempA + varWinkelTempB

lg
manuel