Mehrspaltige combobox
28.08.2004 20:52:39
Erich
habe wieder ein Problem,wie kann ich nachfolgenden code veränderen das ich Mehrspaltige Coboboxen habe
Dim a As Integer, j As Integer
Dim aMax As Integer
aMax = Sheets("System").Cells(Rows.Count, 1).End(xlUp).Row
With Me
For j = 1 To 90
.Controls("ComboBox" & j).Clear
For a = 2 To aMax
.Controls("ComboBox" & j).AddItem Sheets("System").Cells(a, 1)
Next a
Next j
End With
kann mir jemand weiter helfen?
gruß
erich