mehrere Comboboxen in einer Schleife

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: mehrere Comboboxen in einer Schleife
von: Wolfgang
Geschrieben am: 17.10.2015 13:49:41

Hallo alle gemeinsam,
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

Bild

Betrifft: AW: mehrere Comboboxen in einer Schleife
von: Tino
Geschrieben am: 17.10.2015 13:51:58
Hallo,
versuch mal so, nicht getestet.

Private Sub CommandButton21_Click()
Dim Zn As Integer, i%
    Zn = Selection.Row
    For i = 1 To 8
        Cells(Zn, 7 + i) = Me("ComboBox" & i).Value
    Next i
    Unload Dateneingabe
End Sub
Gruß Tino

Bild

Betrifft: AW: mehrere Comboboxen in einer Schleife
von: Wolfgang
Geschrieben am: 17.10.2015 14:17:07
Hallo Tino,
danke, so ähnlich hatte ich es mir vorgestellt.
Grüße von
Wolfgang
aus dem Erzgebirge

 Bild

Beiträge aus den Excel-Beispielen zum Thema "mehrere Comboboxen in einer Schleife"