James fragte, ob es eine Tastenkombination gibt, mit der Sie eine Zeile nach unten verschieben und die gesamte Zeile auswählen können. In Excel gibt es keine Möglichkeit, dies mit einem einzigen Tastendruck zu tun, aber es gibt eine Möglichkeit, dies mit zwei Tastenanschlägen zu tun. Alles, was Sie tun müssen, ist den Abwärtspfeil zu drücken, unmittelbar gefolgt von Umschalt + Leertaste.

Wenn Sie sich jedoch viel bewegen, wäre Sie wahrscheinlich mehr an einem Makro interessiert, das die beiden Schritte zu einem einzigen Schritt kombiniert, der über eine Tastenkombination ausgelöst werden kann. Das folgende Makro funktioniert:

Sub SelectRowDown1()

If ActiveCell.Row < 1048576 Then         ActiveCell.Offset(1, 0).Select         ActiveCell.EntireRow.Select     End If End Sub

Wenn Sie dies einer Tastenkombination wie Strg + D zuweisen, bewegen Sie sich jedes Mal, wenn Sie die Tastenkombination drücken, eine Zeile nach unten und sie wird ausgewählt. Das Problem bei diesem Ansatz ist jedoch, dass nach dem Ausführen des Makros die erste Zelle in der Zeile immer die aktive Zelle ist. Dies unterscheidet sich von der Methode zum Verschieben und Auswählen nach unten, Umschalt + Leertaste.

Es ist anscheinend die EntireRow.Select-Methode, die dazu führt, dass die erste Zelle aktiviert wird. Um dieses Problem zu umgehen, müssen Sie lediglich feststellen, in welcher Spalte Sie sich befanden, und diese Zelle aktivieren. Die folgende Version des Makros macht genau das:

Sub SelectRowDown2()

If ActiveCell.Row < 1048576 Then         ActiveCell.Offset(1, 0).Select         iCP = ActiveCell.Column         ActiveCell.EntireRow.Select         ActiveCell.Offset(0, iCP - 1).Activate     End If End Sub

Wenn Sie an einem Makro interessiert sind, das sich nach oben bewegt, können Sie dieses Makro verwenden:

Sub SelectRowUp()

If ActiveCell.Row > 1 Then         ActiveCell.Offset(-1, 0).Select         iCP = ActiveCell.Column         ActiveCell.EntireRow.Select         ActiveCell.Offset(0, iCP - 1).Activate     End If End Sub

Sie können dieses Makro der Tastenkombination Strg + U zuweisen, und dann sind Ihre Bewegungsmakros vollständig.

Wenn Sie etwas benötigen, das „leistungsstärker“ als diese Makros ist, lesen Sie das RowLiner-Add-In von Pearson Software Consulting Services:

http://www.cpearson.com/excel/RowLiner.htm

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (11473) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Zeilen verschieben und auswählen.