Zellenprüfung
Heiko
ich verzweifle bald daran. Kann mir da jemand von euch aus der Patsche helfen? ;-)
Ich habe ein Sheet in dem ich filtern muss. Also z.B. die Zeilen
2, 4, 6, 8 usw. bleiben sichtbar. Zeile 9 mit Inhalt ist ausgeblendet. Zeile 10 ist leer und sichtbar.
Über einen SpinButton (Userform) versetze ich den Cursor über die sichtbaren Zeilen im Sheet.
Jetzt soll der Cursor aber nicht über die letzte sichtbare Zeile (also hier Zeile 8) hinausgehen können. Mit meinem Code schaut der aber noch in die Zeile 9 (Hidden - gefiltert) da die nicht leer ist und bleibt dann erst "stehen".
Hier mein Code:
Private Sub cmdPre_Click()
On Error Resume Next
Do
If ActiveCell.Offset(1, 0).Value = "" Then
MsgBox "Ende erreicht!", vbExclamation
Exit Sub
End If
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.EntireRow.Hidden = False
End Sub
Wie kann ich es nur erreichen, dass die nächste sichtbare Zelle (anstatt ActiveCell.Offset(1, 0).Value = "") auf Inhalt geprüft wird? Vielen Dank im Voraus.
VG, Heiko