ich habe auf einer UserForm 9 TextBoxen und einer ListBox. Mit der Übergabe der TextBoxinhalte an die Tabelle habe ich Schwierigkeiten.
Also die Inhalte der Textboxen werden mit einer ListBox ermittelt:
Private Sub ListBox1_Change()
TextBox1 = ListBox1.Column(1)
TextBox2 = ListBox1.Column(4)
TextBox4 = ListBox1.Column(5)
TextBox8 = ListBox1.Column(2)
End Sub
Private Sub CommandButton1_Click()
Range("h3").Value = TextBox2.Value
Range("i3").Value = TextBox3.Value
TextBox6 = Range("h3").Value + Range("i3").Value
Range("h4").Value = TextBox4.Value
Range("i4").Value = TextBox5.Value
TextBox7 = Range("h4").Value + Range("i4").Value
If TextBox5.Value = "" Then
TextBox7.Value = ""
Label10.Caption = "Ihre Eintragung wurde ausgeführt, aber es wurden keine S´s erfaßt!"
End If
If TextBox3.Value = "" Then
TextBox6.Value = ""
Label10.Caption = "Ihre Eintragung wurde ausgeführt, aber es wurden keine A´s erfaßt!"
End If
End Sub
Jetzt soll der Inhalt der TextBox6 und der TextBox7 in die Tabelle geschrieben werden, und zwar in die entsprechenden Zellen des ausgewählten Datensatzes (ListBox1.Column(4)+ ListBox1.Column(4)).
Ich hoffe Ihr könnt mir helfen.
Gruss
BerieLLium