VBA Filterfunktion in Verbindung mi Spin-Button
27.11.2004 18:18:49
Drazen
ich habe in meiner UF ein SpinButton das die Datensätze hoch-und runterblättert, jetzt wollte ich eine Filterfunktion einbauen, im Tabellenblatt git es eine Spalte die entweder "Aktiv" oder "Passiv" enthält.
Das Filtern an sich funktioniert, aber beim Blättern mit dem Spin Button werden trotzdem alle Datensätze angezeigt, wie bringe ich dem Button bei nur die gefilterten Daten anzuzeigen? Geht das überhaupt?
Hier die Codes des SpinButtons:
Private Sub SpinButton1_SpinUp() iSpin = iSpin + 1 If iSpin > Sheets("BAZA PODATAKA").Cells(Rows.Count, 1).End(xlUp).Row Then iSpin = 2 End If 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
Private Sub SpinButton1_Spindown()
iSpin = iSpin - 1
If iSpin < 2 Then
iSpin = Sheets("BAZA PODATAKA").Cells(Rows.Count, 1).End(xlUp).Row
End If
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)
frm_BAZA.txt5.Text = CStr(Sheets("BAZA PODATAKA").Cells(iSpin, 6).Value)
End Sub
Und hier meine Filter-Makros:
Sub AKTIV()
Sheets("BAZA PODATAKA").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=9, Criteria1:="Aktiv"
End Sub
Sub PASSIV()
Sheets("BAZA PODATAKA").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=9, Criteria1:="Passiv"
End Sub
Die MAkros werden per OptionBox im UF aufgerufen mit dem bei Klick Erreignis.
Wer kann helfen?
Grüsse
Drazen