ich hab hier 8 Comboboxen in einer Userform, deren Value ich der Reihe nach in eine Tabelle einfügen will. Dazu habe ich folgendes geschrieben:
Private Sub CommandButton21_Click()
Dim Zn as Integer
Zn = Selection.Row
Cells(Zn, 8) = ComboBox1.Value
Cells(Zn, 9) = ComboBox2.Value
Cells(Zn, 10) = ComboBox3.Value
Cells(Zn, 11) = ComboBox4.Value
Cells(Zn, 12) = ComboBox5.Value
Cells(Zn, 13) = ComboBox6.Value
Cells(Zn, 14) = ComboBox7.Value
Cells(Zn, 15) = ComboBox8.Value
Unload Dateneingabe
End Sub
Kann man dies auch in einer Schleife ablaufen lassen?Danke im Voraus.
Wolfgang
aus dem Erzgebirge