Excel Zeilen mit Makro ausblenden

[Lennart]

Moin zusammen,

ich brauche einen Rat, ob folgender Sache umsatzbar ist.

ich möchte gerne, dass mit Drücken eines Buttons die nächste sichtbare Zeile nach Zeile 4 ausgeblendet wird. 

Zu Beginn ist das natürlich die Zeile 5, und mit der nächsten Betätigung des Buttons soll dann Zeile 6 ausgeblendet werden.

Und so weiter und so weiter... Sodass ich quasi mit "Knopfdruck" eine Zeile nach der anderen ausblenden kann.

Bekommen wir das hin ? 

danke und liebe Grüße

[schauan]

Hallöchen,

das könnte man so lösen:

Code:

Sub Ausblenden_1()
'Variablendeklarationen
Dim lCnt&, lCntHidden&
'Schleife ab Zeile 5 bis Zeile ...
For lCnt = 5 To 500 'hier letzte Zeile gewuenschte eintragen
'Wenn ausgeblendet, dann Zeilenzaehler hochsetzen
If Cells(lCnt, 1).EntireRow.Hidden Then lCntHidden = lCntHidden + 1
'Ende Schleife ab Zeile 5 bis Zeile ...
Next
'naechse Zeile ausblenden
Cells(5 + lCntHidden, 1).EntireRow.Hidden = True
End Sub

Macht so aber nur Sinn, wenn zwischendrin keine Zeilen wieder eingeblendet wurden.