Clever-Excel-Forum

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

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.

Lennart

schauan