Bei Auswahl in ComboBox Daten aus TextBox in Zelle
09.08.2005 12:03:46
Josef
Wenn ich Daten in einer ComboBox aktiviere so werden die Daten in die TexBoxen geschrieben.
Wenn jetzt Daten in eine TextBox geschrieben werden dann soll dieser Wert in eine Zelle geschrieben werden.
Mit
Private Sub cboListe_Change()
Dim i As Long
i = cboListe.ListIndex + 1
With Workbooks("SUBKAPITEL_2.xls").Worksheets("SUBKAPITEL")
subtxt1.Text = .Cells(i, 1)
subtxt2.Text = .Cells(i, 2)
subtxt3.Text = .Cells(i, 3)
subtxt4.Text = .Cells(i, 4)
subtxt5.Text = .Cells(i, 5)
subtxt6.Text = .Cells(i, 6)
subtxt7.Text = .Cells(i, 7)
subtxt8.Text = .Cells(i, 8)
subtxt9.Text = .Cells(i, 9)
subtxt10.Text = .Cells(i, 10)
End With
With Cells(Range("A65536").End(xlUp).Row + 1, 1)
.Value = subtxt1.Text
End With
End Sub
werden die Daten gleich beim aufruf der UserForm in die Zelle A2 geschrieben.
Der Wert sollte jedoch erst nach einer Auswahl in der ComoboBox in die Zelle eingetragen werden.
Wie würde hier bitte eine Lösung aussehen?
Danke
Josef