ich öffne eine Userform in der Daten in das aktive Tabellenblatt eingetragen werden. Der Code hierfür ist:
Private Sub CommandButton2_Click()
Dim xZeile As Long
If TextBox1 = "" Then Exit Sub
If ComboBox1.ListIndex = 0 Then
xZeile = [A65536].End(xlUp).Row + 1
Else
xZeile = ComboBox1.ListIndex + 1
Cells(xZeile, 1) = TextBox1
End Sub
Nun wollte ich jedoch nicht, dass immer zu diesem Tabellenblatt gewechselt werden muß und habe den Code folgendermaßen umgeändert:Private Sub CommandButton2_Click()
Dim xZeile As Long
If TextBox1 = "" Then Exit Sub
If ComboBox1.ListIndex = 0 Then
xZeile = Worksheets("KinderDB").Range("A65536").End(xlUp).Row + 1
Else
xZeile = Sheets("KinderDB").Cells(ComboBox1.ListIndex + 1)
End If
Cells(xZeile, 1) = TextBox1
End Sub
Das einlesen der Combobox funktioniert, aber nicht das übergeben der Daten!? der Code bleibt bei xZeile = Worksheets("KinderDB").Range("A65536").End(xlUp).Row + 1 stehen. Ich bitte um Hilfe
Vielen Dank schonmal fürs lesen
Gruß
Thorsten