Markierung nach unten - bis erste Zeile nicht ausg
12.07.2018 10:08:17
Peter
Mit diesem Code kann ich die bestehende Selection jeweils eine Zeile nach unten verschieben.
Nun möchte ich, dass die diese Aktion wiederholt wird, wenn nach dem Verschieben die erste Zeile vollständig (ENTIREROW) ausgeblendet ist. Ich dachte, ich könne das mit einem Loop machen
Do While ActiveCell.Offset(1, 0).EntireRow.Hidden = True
Loop
doch irgendwie bleibt die Markierung immer and der gleichen Stelle.
Gruss, Peter
Sub OffsetToDown()
'' Tastenkombination: Strg+Umschalt+D
Dim AktiveZelle As Range
Set AktiveZelle = ActiveCell
If Selection.Row