mehrspaltige Combobox
30.03.2009 08:08:01
Captain
habe auf meinem Sheet eine Combobox und versuche dort, zwei Spalten einzulesen. Leider erhalte ich die Fehlermeldung 381 - Eigenschaft List konnte nicht gesetzt werden. Why?
Private Sub Worksheet_Activate()
Dim i%
With Worksheets(1).ComboBox1
.Clear
.ColumnCount = 2
.ColumnWidths = "70;20"
For i = 2 To Worksheets(2).UsedRange.Rows.Count
If Worksheets(2).Cells(i, 1) "" Then
.AddItem Worksheets(2).Cells(i, 1)
.List(i, 1) = Worksheets(2).Cells(i, 2)
Else
'nix
End If
Next i
.ListIndex = 0
End With
End Sub
Danke
Jack
Anzeige