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
|