Thema Datum  Von Nutzer Rating
Antwort
Rot ausgerechneten Wert in Zelle übergeben
 10.06.2018 17:42:21 Maxe771
NotSolved
10.06.2018 19:55:08 Holger
NotSolved

Ansicht des Beitrags:
Von:
Maxe771		 Datum:
10.06.2018 17:42:21		 Views:
1060		 Rating:
     
Antwort:
  Ja
Thema:
ausgerechneten Wert in Zelle übergeben		 
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()
'falls Textboxen leer dann Meldung "Vervollständigen"
If TextBox1.Value = "" Or ComboBox1.Value = "" Or ComboBox2.Value = "" Or TextBox4.Value = "" Then
    MsgBox "Bitte Eingaben vervollständigen!"
    Exit Sub
'die Sub wird verlassen, ohne dass das Userform geschlossen wird!
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
'Ausgabe des Ergebnis
 MsgBox "Der Kopfdurchmesser beträgt " & (TextBox5.Value) & " mm!"
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
Rot ausgerechneten Wert in Zelle übergeben
 10.06.2018 17:42:21 Maxe771
NotSolved
10.06.2018 19:55:08 Holger
NotSolved