2 zeile in der Combobox
10.01.2005 20:16:46
Erich
hab schon wieder ein Problem, ich fülle meine Combobox mit nachfolgenden Code:
Private Sub UserForm_Initialize()
Sheets("Auftrag").Activate
ComboBox1.Clear
Dim iRow As Integer
With Range("A1")
.AutoFilter Field:=11, Criteria1:=""
End With
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
If Rows(iRow).Hidden = False Then
ComboBox1.AddItem Cells(iRow, 1).Value
End If
iRow = iRow + 1
Loop
If ComboBox1.ListCount > 0 Then
ComboBox1.ListIndex = 0
End If
End Sub
was muss ich an den Code ändern um die Spalte daneben auch anzuzeigen in der Combobox
für eure hilfe wäre ich sehr dankbar!!!
gruß
erich
Anzeige