In gefilterten Daten per SpinButton blättern
02.03.2005 11:45:26
Drazen
wie kann ich in einem Arbeitsblatt nur durch die sichtbaren Daten mittels SpinButton blättern, ich hab es so versucht:
Private Sub UserForm_Initialize()
iSpin = 2
If Rows(iSpin).Hidden = False Then
lblArtikel = Cells(iSpin, 4)
txtMenge = Cells(iSpin, 23)
End Sub
Private Sub SpinButton1_SpinUp()
iSpin = iSpin - 1
If iSpin < 2 Then
iSpin = Cells(Rows.Count, 1).End(xlUp).Row
End If
If Rows(iSpin).Hidden = False Then
lblArtikel = Cells(iSpin, 4)
txtMenge = Cells(iSpin, 23)
End If
End Sub
Private Sub SpinButton1_Spindown()
iSpin = iSpin + 1
If iSpin > Cells(Rows.Count, 1).End(xlUp).Row Then
iSpin = 2
End If
If Rows(iSpin).Hidden = False Then
lblArtikel = Cells(iSpin, 4)
txtMenge = Cells(iSpin, 23)
End If
End Sub
Geht auch so weit gut, es werden nur die sichbaren Sätze in das Label und die TextBox eingelesen, nur das Blättern erfolgt durch alle DatenSätze, ich muss also zigmal ins leere klicken um den Datensatz anzuzeigen, wie kann man das verhindern?
Grüsse
Drazen
Anzeige