TextBox und Datumswerte
06.12.2004 15:53:25
Roger
Ich kriegs einfach nicht hin. Auf dem Tabellenblatt "Buchungen" muss ab A10 eingetragen werden. Die Spalte A ist mit Datum formatiert. Nun soll es mir den Wert aus Textbox1 auch so in A10 reinschreiben wie wenn ich es direkt im Tabellenblatt einragen würde. Ausserdem soll es mir die ComboBoxen1 und 2 als Standard eintragen in B10 und C10. In den ComBoboxen sind unterschiedliche Zahlen vorahnden z.B. 1, 2, 3, 1-234.4, oder 75-451 etc.. Habs mit folgendem Code probiert:
Private Sub CommandButton1_Click()
Set frm = UserForm1
Sheets("Buchungen").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
With frm
ActiveCell.Value = .TextBox1.Value
ActiveCell.Offset(0, 1).Value = .ComboBox1.Value
ActiveCell.Offset(0, 2).Value = .ComboBox2.Value
ActiveCell.Offset(0, 3).Value = .TextBox2.Value
ActiveCell.Offset(0, 4).Value = .TextBox3.Value
ActiveCell.Offset(0, 5).Value = .TextBox4.Value
ActiveCell.Offset(0, 6).Value = .TextBox5.Value
ActiveCell.Offset(0, 7).Value = .TextBox6.Value
ActiveCell.Offset(0, 8).Value = .TextBox7.Value
ActiveCell.Offset(0, 9).Value = .TextBox8.Value
End With
Dim ObCb As Object
For Each ObCb In Me.Controls
If TypeName(ObCb) = "TextBox" Then ObCb.Value = ""
If TypeName(ObCb) = "ComboBox" Then ObCb.Value = ""
Next ObCb
End Sub
Wenn ich es damit probiere wird der Wert aus TextBox1 in die Zelle A10 zwar geschrieben aber linksbündig und aus den ComboBoxen kann es vorkommen je nach Zahl das es mir dann das Feld als Datum formatiert und das soll es ja nicht.
Besten Dank für eure Hilfe
Gruss Roger