VBA: In 30 Comboboxen gleichen Code - Schleife?

[W_D_mland]

Hi,
im Augenblick mache ich das so:

Option Explicit
Dim i As Control

Private Sub CommandButton1_Click()
Set i = cbo1
Call TuEtwas
Set i = cbo2
Call TuEtwas
Set i = cbo3
Call TuEtwas '***usw***
End Sub

Public Sub TuEtwas()
With i
.Text = „xxxxxxxxxxxx“
.Height = 25 '***usw***
End With
End Sub

Kann man das mit einer Schleife machen?

Danke und Gruß

[Chewpapa_22ca98]

Hallo,

Kann man das mit einer Schleife machen?

ja. Benenne Deine Comboboxen um.

Cmb1 wird Cbm1; Index = 0
Cmb2 wird Cmb1; Index = 1
Cmb3 wird Cmb1; Index = 2 …

(Steuerelementefeld heitß das dann. )

In der Schleife:

For i=0 to n
Cmb1(i).xxx = yyy
Next

Gruß, Rainer