TextBox
29.08.2007 22:05:00
Ernst
Benötige eine kleine Hilfe zu untenstehenden Code.
In TB 1 und TB 2 gebe ich Zahlen ein, welche in TB 5 als Winkel berechnet werden.
Wie müsste der Code ergänzt werden, wenn als alternative der Winkel direkt in TB 5 eingegebnen werden kann?
Für eine Antwort bin ich dankbar.
Mit freundlichen Grüßen
Ernst Dunkel
Private Sub cmdBerechnen_Click()
On Error Resume Next
TextBox5 = Round(Atn(TextBox1 / TextBox2) * 180 / Application.Pi())
Sheets("5. Fenster").Range("s6").Value = frmHorizont.TextBox5.Value
End Sub
Anzeige