mit folgendem Code schreibe ich Daten aus einer Userform in Tabelle1
nun habe ich noch eine Combobox in die Userform gestellt.
Problem:
Wie kann ich die Combox mit den verschiedenen Tabellennamen befüllen
und dann in der ausgesuchten Tabelle den unten genannten Code anwenden.
Private Sub CommandButton1_Click()
If [a65536] = "" Then
Cells([a65536].End(xlUp).Row + 1, 1) = TextBox1
Cells([b65536].End(xlUp).Row + 1, 2) = TextBox2
Cells([c65536].End(xlUp).Row + 1, 3) = TextBox3
Else
MsgBox "Es ist keine Zelle mehr frei"
End If
End Sub
Wäre schön wenn mir jemand weiterhelfen könnte.
Gruss
Peter