1 Zeile in der Combobox nicht anzeigen
11.01.2005 21:41:35
erich
schon wieder quält mich ein Problem.
mit den Nachfolgenden Code fülle ich meine Combobox,
soweit so gut
nun zu meinen Problem
in der Combobox wird auch die Übershicht zeile von zeile Angezeigt, die ich auch auswählen kann, das kann ich aber nicht gebrauchen.
Frage: kann mann die 1 zeile unterdrücken oder so einstellen das man sie nicht auswählen kann?
ist das überhaupt möglich?
für eure hilfe wäre ich sehr dankbar!
Private Sub UserForm_Initialize()
Sheets("Störmeldung").Activate
ComboBox1.Clear
Dim iRow As Integer
With Range("A1")
.AutoFilter Field:=16, Criteria1:="Ja"
.AutoFilter Field:=22, 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
Selection.AutoFilter
End Sub
gruß
erich
Anzeige