Thema Datum  Von Nutzer Rating
Antwort
31.05.2017 15:51:50 Luanee
NotSolved
Blau Iterative Berechnung mit VBA
 31.05.2017 16:52:12 Gast53504
NotSolved

Ansicht des Beitrags:
Von:
Gast53504		 Datum:
31.05.2017 16:52:12		 Views:
548		 Rating:
     
Antwort:
  Ja
Thema:
Iterative Berechnung mit VBA		 
Option Explicit

Sub Verzahnung()

Dim i As Long
Dim A As Double
Dim B As Double
Dim V As Double
Dim BETA As Double
  
   '//Code soll ausgeführt werden, wenn Zelle xy beschrieben ist
   On Error GoTo Fehler
   
   '//Wert soll aus Zelle entnommen werden
   B = Worksheets("Tabelle1").Cells(15, 8).Value
   V = Worksheets("Tabelle1").Cells(12, 8).Value
  
   '//Schritt 1
   A = 1 / Tan(V) - 1 / (V + B)
   '//Iteration
   Do While Abs(A) > 0.000001 '//akzeptiert
      V = A + V
      A = 1 / Tan(V) - 1 / (V + B)
   Loop

  BETA = (A + V) * 57.29577951
  
  On Error GoTo 0
  
  '//Wert soll in Zelle geschrieben werden
  Worksheets("Tabelle1").Cells(16, 8) = BETA
  '//fertig
  Exit Sub

Fehler:
MsgBox "Berechnung kann nicht durchgeführt werden"

End Sub

 

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
31.05.2017 15:51:50 Luanee
NotSolved
Blau Iterative Berechnung mit VBA
 31.05.2017 16:52:12 Gast53504
NotSolved