Speziell an Erich aus Kamp-Lintfort, andere können
09.06.2009 10:35:12
marc
Ich habe deinen Vorschlag der Sub-Formel mal ausprobiert, danke übrigens nochmal. Leider bekomme ich jedoch eine Fehlermeldung "Laufzeitfehler 1004" beim Test. Die Hilfe sagt mir, das etwas mit der aktiven/aktuellen Dateiverknüpfung falsch ist.
Leider sagt mir das nicht sehr viel und mir fehlen die Kenntnisse zu beurteilen, wo der Fehler liegt. Irgendeine Idee, woran es liegen könnte?
Hier mal ein Auszug was ich, (hoffentlich richtig) basierend auf deinem Vorschlag, zusammen gebastelt habe.
Beide Sub-Formeln habe ich so hintereinander, vor der UDF, platziert. Stimmt das?
Sub Formel_1()
Dim dbla1STRICH As Double, dblb1STRICH As Double
Dim h2STRICH As Double, mean_hSTRICH As Double, h1STRICH As Double
'--- Teil 1:
With Application.WorksheetFunction
dbla1STRICH = Cells(11, 3)
dblb1STRICH = Cells(12, 3)
'WENN(C12>0;GRAD(ARCTAN2(C11;C12));360+GRAD(ARCTAN2(C11;C12)))
h1STRICH = .Degrees(.Atan2(dblC11, dblC12)) - 360 * (dblC12 > 0)
End With
End Sub
Sub Formel_2()
Dim dbla2STRICH As Double, dblb2STRICH As Double
Dim h2STRICH As Double, mean_hSTRICH As Double, h1STRICH As Double
'--- Teil 1:
With Application.WorksheetFunction
dbla2STRICH = Cells(20, 3)
dblb2STRICH = Cells(21, 3)
'WENN(C21>0;GRAD(ARCTAN2(C20;C21));360+GRAD(ARCTAN2(C20;C21)))
h2STRICH = .Degrees(.Atan2(dblC20, dblC21)) - 360 * (dblC21 > 0)
End With
End Sub