Drehung mit Excel
16.01.2014 16:10:23
Daniel
ich möchte gerne mit VBA einen Versuchsverlauf drehen. Dafür habe ich diesen Code geschrieben:
Sub dreh()
Dim i As Double
Dim pi As Double
Dim dblWinkel1 As Double
pi = 4 * Atn(1)
For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
dblWinkel1 = 10 * (pi / 180)
ActiveSheet.Cells(i, 16).Value = (ActiveSheet.Cells(i, 2).Value * (Cos(dblWinkel1))) _
+ (ActiveSheet.Cells(i, 1).Value * (Sin(dblWinkel1)))
ActiveSheet.Cells(i, 15).Value = (ActiveSheet.Cells(i, 2).Value * (-Sin(dblWinkel1)) _
) + (ActiveSheet.Cells(i, 1).Value * (Cos(dblWinkel1)))
Next i
End Sub
In Spalte A stehen meine y-Werte und in Spalte B meine x-Werte. Nun ist mein gedrehter Verscuhsverlauf aber nicht so wie ich ihn erwarten würde. Wenn ich mir zum Beispiel mein letztes Wertepaar anschaue dann ist der y-wert viel zu niedrig.
Sieht jmd einen Fehler in meinem Code?
Gruß Daniel