habe es so versucht aber klappt nicht so richtig
If UserForm1.TextBox1.Text = "" Then
MsgBox prompt:="keine Eingabe !!"
End If
TextBox1.SetFocus
If TextBox1.Text = "" Then ....für = habe ich im Org. das görßer Zeichen
UserForm1.Label5.Object = Range("F5") '.....der Wert soll immer erneuert werden !!!!
Range("J1").Value = Range("G5").Value * CDbl(TextBox1.Text) '........hier fehlt noch was ? geht die berechnung auch anders ?
UserForm1.Label3.Object = Range("J1") '.....der Wert soll formatiert werden ?,?
End If
UserForm1.TextBox1.Text = ""
TextBox1.SetFocus
End Sub
Summe soll ergeben aus 2 ein wert / den anderen Wert = Ergebnis
in der Formel sieht das so aus :=SUMMENPRODUKT(F2/F5/G5)
Ich danke schon mal im Voraus für Hilfe