Thema Datum  Von Nutzer Rating
Antwort
Rot Winkelfunktionen in VBA-Excel
 06.05.2009 14:57:26 gerum
NotSolved
07.05.2009 15:50:29 Holger
NotSolved
08.05.2009 10:55:17 gerum
NotSolved

Ansicht des Beitrags:
Von:
gerum		 Datum:
06.05.2009 14:57:26		 Views:
1955		 Rating:
     
Antwort:
  Ja
Thema:
Winkelfunktionen in VBA-Excel
Hallo alle zusammen,
bin absoluter Neueinsteiger in VBA. Hab mir aus der Bücherei ein Einsteigerseminar geholt und durchgearbeitet. Und hab auch schon ganz gute Ergebnisse. Brauche es um für CNC-Programme (Mill Plus) um Koordinaten und Vektoren zu berechnen. Da ich kein Cad-Cam System zur Verfügung habe.

Nun zu meinem Problem. Ich möchte den Sinuswert eines Winkels der sich z.b. durch
atan(a)=Gegenkathete / Ankathete ergibt.

Konkretes beispiel (Ergebnis laut Taschenrechner):

x=10
Atan(a)=2x/x
a=63,4349 °

sin(a)= 0,8944

Meine vorläufige Prozedur schaut so aus:

Sub winkelberechnen()
Dim x As Double, y As Double, t As Double, v As Double
x = 10
y = 2 * x
t = (Atn(y / x)) * (180 / 3.141592654)
v = Sin(t)

Cells(1, 1).Value = "Winkel " & t
Cells(1, 2).Value = "Vektor " & v
Debug.Print "Winkel " & t
Debug.Print "Vektor " & v
End Sub

Ergebnisse laut Prozedur:
t=63,4349 (Stimmt also)
v=0,5671 (Haut überhaupt nicht hin)

Hab ich vielleicht einen falschen Syntax oder lieg ich generell falsch, ich weiss nicht mehr weiter.
Im Voraus schon mal vielen Dank.
MFG

P.S. Benutze Office 2007

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Winkelfunktionen in VBA-Excel
 06.05.2009 14:57:26 gerum
NotSolved
07.05.2009 15:50:29 Holger
NotSolved
08.05.2009 10:55:17 gerum
NotSolved