hallo zusammen,
hab folgendes problem.
aus einer userform werden diverse daten in eine tabelle übertragen.
aus textbox 12 sollen dabei europreise übertragen werden.
die zellen sind entsprechend formatiert und kein schreibschutz aktiv.
allerdings erscheint bisher nur das eurozeichen und die zwei dezimalstellen, wenn der preis anstatt mit komma mit einem punkt in die maske eingetragen werden!!!!
folgender code wird verwendet:
Private Sub CommandButton2_Click()
Set frm = UserForm1
Sheets("Rohstoffliste").Activate
Range("b65536").End(xlUp).Offset(1, 1).Select
With frm
ActiveCell.Offset(0, -2).Value = .TextBox9.Value
ActiveCell.Offset(0, 1).Value = .TextBox12.Value
ActiveCell.Offset(0, 4).Value = .ComboBox1.Value
ActiveCell.Offset(0, 5).Value = .TextBox14.Value
ActiveCell.Offset(0, -1).Value = .TextBox11.Value
If UserForm1.OptionButton1.Value = True Then
ActiveCell.Offset(0, 0).FormulaR1C1 = "2"
ActiveCell.Offset(0, -1).FormulaR1C1 = "Stück"
ElseIf UserForm1.OptionButton2.Value = True Then
ActiveCell.Offset(0, 0).FormulaR1C1 = "1"
End If
Sheets("Lieferantenliste").Activate
Range("b65536").End(xlUp).Offset(1, -1).Select
With frm
ActiveCell.Offset(0, 1).Value = .ComboBox1.Value
End With
vielen dank schon mal,
gruß
joel