könnte mir mal jemand helfen? ich müsste eine Schleife programmieren um ausgehend von einer Zelle nach oben hin sichtbare Zeilen (die nicht leer sind!) zählen zu können.
Mein Ansatz funktioniert leider nicht:
For i = 1 To Ende
If Cells.SpecialCells(xlCellTypeVisible)(i, 6) "" Then
x = x + 1
End If
Next
MsgBox (x)
End Sub