Blättern mit Filter
05.12.2006 19:40:44
Andreas
ich versuchs mal. Mein erster Beitrag(Frage)
Ich habe eine Arbeitsblatt mit 500 Zeilen und 50 Spalten. Die einzelnen Zeilen, kann ich mir mit einen Userform anzeigen lassen. Ich habe einen vor- und zurück-Button mit dem ich die einzelnen Zeilen durchlaufen kann. Nun möchte ich das auch wenn ich einen Filter eingeschaltet habe. So wie unten funktioniert es ohne Filter ohne Probleme.
Private Sub ButtonNaechster_Click()
Dim aZeile As Integer, aktuell As Worksheet
Set aktuell = Sheets("aktuell")
aZeile = ActiveCell.Row
aZeile = aZeile + 1
Cells(aZeile, 6).Activate
If ActiveCell.Value <> "" Then
fuellen ' Aufruf fuellen()
schalterSetzen ' Aufruf schalterSetzen()
Else
naechsterOderLetzterLeeren ' Aufruf naechsterOderLetzterLeeren()
End If
End Sub
Wenn ich aber diese If-Abfrage versuche zeigt er mir trotzdem alle an.
If Cells(aZeile, 6) = xlCellTypeVisible And ActiveCell.Value "" Then ...
Vielleicht weiß ja jemand wie es wirklich geht.
Gruß
Andreas