Filter für ComboBox in VBA
28.11.2004 19:45:28
Drazen
folgender Code beim öffnen meiner UF:
Private Sub UserForm_Initialize()
optalle = True
Application.WindowState = xlMaximized
Sheets("BAZA PODATAKA").Activate
Dim aRow, i As Long
Application.EnableEvents = False
ComboBox2.Clear
aRow = Range("A65536").End(xlUp).Row
ComboBox2.AddItem ""
For i = 2 To aRow
ComboBox2.AddItem Cells(i, 1)
Next i
ComboBox2.ListIndex = 0
Application.EnableEvents = True
End Sub
Ich fülle also die Combo mit Daten aus der Tabelle "BAZA PODATAKA", jetzt habe ich aber eine Spalte in der entweder "Aktiv" oder "Passiv" steht. Ich habe in meiner UF eine Option-Wahl die den jeweiligen status im Blatt filtert. Wie kann ich der Combo sagen mir nur die Daten der jeweils gewählten option zu zeigen, geht das überhaupt?
Gestern hat mir Hajo mit den Spin-Buttons sehr geholfen(vielen Dank nochmal), der Code ging so:
Private Sub SpinButton1_Spindown()
iSpin = iSpin - 1
Do
If iSpin < 2 Then
iSpin = Sheets("BAZA PODATAKA").Cells(Rows.Count, 1).End(xlUp).Row
End If
If Sheets("BAZA PODATAKA").Rows(iSpin).Hidden = False Then Exit Do
iSpin = iSpin - 1
Loop
frm_BAZA.txt1.Text = CStr(Sheets("BAZA PODATAKA").Cells(iSpin, 1).Value)
frm_BAZA.ComboBox1.Text = CStr(Sheets("BAZA PODATAKA").Cells(iSpin, 2).Value)
frm_BAZA.txt2.Text = CStr(Sheets("BAZA PODATAKA").Cells(iSpin, 3).Value)
frm_BAZA.txt3.Text = CStr(Sheets("BAZA PODATAKA").Cells(iSpin, 4).Value)
frm_BAZA.txt4.Text = CStr(Sheets("BAZA PODATAKA").Cells(iSpin, 5).Value)
End Sub
und ich habe nun versucht das ganze hier auch bei meiner Combo anzuwenden, ging aber irgendwie überhaupt nicht. Wer kann etwas nachhelfen?
Grüsse
Drazen