AW: Währung in Textbox
20.12.2003 18:51:02
Rainer
Hi Matthias,
ich greife auf zweierlei Arten zu: Im Falle der Datenübernahme so:
Private Sub CommandButton1_Click()
Set frm = UserForm1
ActiveSheet.Select
Range("A65536").End(xlUp).Offset(1, 0).Select
With frm
ActiveCell.Value = .TextBox1.Value
ActiveCell.Offset(0, 1).Value = .TextBox2.Value
ActiveCell.Offset(0, 2).Value = .TextBox10.Value
ActiveCell.Offset(0, 3).Value = .TextBox4.Value
ActiveCell.Offset(0, 4).Value = .CheckBox1.Value
ActiveCell.Offset(0, 5).Value = .TextBox5.Value
ActiveCell.Offset(0, 6).Value = .TextBox11.Value
ActiveCell.Offset(0, 7).Value = .TextBox12.Value
ActiveCell.Offset(0, 8).Value = .TextBox3.Value
ActiveCell.Offset(0, 9).Value = .TextBox9.Value
ActiveCell.Offset(0, 10).Value = .TextBox8.Value
ActiveCell.Offset(0, 11).Value = .ComboBox8.Value
ActiveCell.Offset(0, 12).Value = .ComboBox6.Value
ActiveCell.Offset(0, 13).Value = .ComboBox7.Value
ActiveCell.Offset(0, 14).Value = .ComboBox4.Value
ActiveCell.Offset(0, 15).Value = .TextBox6.Value
ActiveCell.Offset(0, 16).Value = .ComboBox5.Value
ActiveCell.Offset(0, 17).Value = .TextBox7.Value
End With
End Sub
Im Falle der Änderung - so:
Private Sub CommandButton5_Click()
Set frm = UserForm1
ActiveSheet.Activate
Dim varwert As Variant
With frm
varwert = .TextBox1.Value
ActiveCell.Value = .TextBox1.Value
ActiveCell.Offset(0, 1).Value = .TextBox2.Value
ActiveCell.Offset(0, 2).Value = .TextBox10.Value
ActiveCell.Offset(0, 3).Value = .TextBox4.Value
ActiveCell.Offset(0, 4).Value = .CheckBox1.Value
ActiveCell.Offset(0, 5).Value = .TextBox5.Value
ActiveCell.Offset(0, 6).Value = .TextBox11.Value
ActiveCell.Offset(0, 7).Value = .TextBox12.Value
ActiveCell.Offset(0, 8).Value = .TextBox3.Value
ActiveCell.Offset(0, 9).Value = .TextBox9.Value
ActiveCell.Offset(0, 10).Value = .TextBox8.Value
ActiveCell.Offset(0, 11).Value = .ComboBox8.Value
ActiveCell.Offset(0, 12).Value = .ComboBox6.Value
ActiveCell.Offset(0, 13).Value = .ComboBox7.Value
ActiveCell.Offset(0, 14).Value = .ComboBox4.Value
ActiveCell.Offset(0, 15).Value = .TextBox6.Value
ActiveCell.Offset(0, 16).Value = .ComboBox5.Value
ActiveCell.Offset(0, 17).Value = .TextBox7.Value
End With
End Sub