Hi Leute folgendes Problem:
Ich habe ein Userform, in diesem werden Werte eingetragen.
Mit einem Klick auf den CommandButton4_Click() wird dann eine Berechnung durchgeführt und das Ergebnis in Textbox5 geschrieben.
Nun zu meiner Frage: Wie kann ich dieses Ergebnis in Textbox5 und im normalen Excelsheet in eine Zelle schreiben?
Private Sub CommandButton4_Click()
If TextBox1.Value = "" Or ComboBox1.Value = "" Or ComboBox2.Value = "" Or TextBox4.Value = "" Then
MsgBox "Bitte Eingaben vervollständigen!"
Exit Sub
End If
With UserForm1
.TextBox5.Value = Round((Sqr((.TextBox1.Value / (3.1415 * (.ComboBox1.Value) / (.ComboBox2.Value))) + (((.TextBox4.Value * .TextBox4.Value) / 4)))) * 2, 2)
End With
MsgBox "Der Kopfdurchmesser beträgt " & (TextBox5.Value) & " mm!"
End Sub