Mit diesem Code verschiebe ich die die aktuelle Markierung um einen Schritt nach oben.
In gefilterten Listen (resp. bei teilweise ausgeblendeten Zeilen) wäre es sinnvoll, wenn die Markierung bis zur nächsten nicht ausgeblendeen Zeile (relevant ist die erste Zelle links) verschoben würde.
Ich habe versucht, das mit Do ... Loop Until Selection.EntireRow.Visible zu bewerkstelligen. Das funktioniert jedoch nicht.
Wie muss der Code ergänzt werden?
Gruss, Peter
Sub OffsetToUp()
'' Tastenkombination: Strg+Umschalt+U
Dim AktiveZelle As Range
Set AktiveZelle = ActiveCell
'Do
If Selection.Row > 1 Then
Selection.Offset(-1, 0).Select
AktiveZelle.Offset(-1, 0).Activate 'bewirkt, dass xte-Zelle innerhalb der Markierung ausgewählt _
_
bleibt
'Loop Until Selection(1).Visible = True
End If
End Sub