Thema Datum  Von Nutzer Rating
Antwort
Rot Iterative Berechnung mit VBA
 31.05.2017 15:43:31 Luanee
Solved
31.05.2017 20:31:07 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Luanee		 Datum:
31.05.2017 15:43:31		 Views:
1117		 Rating:
     
Antwort:
 Nein
Thema:
Iterative Berechnung mit VBA
Hallo alle miteinander, ich beschäftige mich gerade zum ersten Mal mit der VBA-Programmierung und muss eine iterative Berechnung zum Laufen bringen. Ich bin mir jedoch absolut nicht sicher, als was ich die verschiedenen Variablen definieren muss und wie sich die for- und if-Schleife aufbauen sollte. Als nächstes folgt der Code (welcher für Basic geschrieben wurde), den ich mit Excel generien muss. 00 Sub //Code soll ausgeführt werden, wenn Zelle xy beschrieben ist 10 Print"inv(BETA)" 20 Input B //Wert soll aus Zelle entnommen werden 30 Input V //Wert soll aus Zelle entnommen werden 40 A=1/TAN(V)-1/(V+B) 50 If ABS(A)>0.000001 then V=A+V:GOTO 40 60 BETA=(A+V)*57 70 Print "BETA=";BETA;"Grad //Wert soll in Zelle geschrieben werden 80 End Ich verstehe was dieser Code berechnet und wie er funktioniert, nur kann ich mir das mit meinen Kenntnissen nicht selbstständig ins VBA überleiten. Die Angaben hinter // sollen außerdem im Code enthalten sein. Bislang habe ich mir folgendes zusammengeschustert: Sub Verzahnung() Dim i As Long Dim FaktorB As Double Dim V As Double FaktorB = Worksheets("Tabelle1").Cells(15, 8).Value V = Worksheets("Tabelle1").Cells(12, 8).Value A = 1 / Tan(V) - 1 / (V + B) For i = 1 To 40 If Abs(A) > 0.000001 Then V = A + V End If Next i BETA = (A + V) * 57.29577951 .Cells(16, 8) = BETA End Sub Hätte einer von euch eine Lösung oder einen Lösungsweg für dieses Problem zur Hand? Über erklärende Hinweise freue ich mich sehr! vielen Dank Luanee

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 Iterative Berechnung mit VBA
 31.05.2017 15:43:31 Luanee
Solved
31.05.2017 20:31:07 Mackie
NotSolved