mehrere Comboboxen in einer Schleife
17.10.2015 13:49:41
Wolfgang
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
Danke im Voraus.
Wolfgang
aus dem Erzgebirge
Anzeige