Comboboxen in Tabelle übertragen
21.12.2020 22:18:24
Longo
Ich habe eine UserForm mit 4 ComboBoxen deren Inhalt ich mit einem Button in eine Tabelle übertrage. Dies funktioniert soweit. Nun möchte ich in einer fünften Combobox angeben, wie oft die Daten in die Tabelle übertragen werden. z.B. 5 --> Die Daten von ComboBox 1 bis 4 werden 5 Mal in die Tabelle übertragen, etc.
Mein Code bis dahin:
With Worksheets("Tabelle1")
i = .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
.Cells(i, 2).Value = UserForm1.DTPicker1.Value
.Cells(i, 3).Value = UserForm1.ComboBox1.Text
UserForm1.ComboBox1.Text = ""
.Cells(i, 4).Value = UserForm1.ComboBox2.Text
UserForm1.ComboBox2.Text = ""
.Cells(i, 5).Value = UserForm1.ComboBox3.Text
UserForm1.ComboBox3.Text = ""
End With