Während Sie Arbeitsblätter bearbeiten, stellen Sie möglicherweise fest, dass ein Teil Ihrer Arbeit auf der Grundlage Ihrer zuvor geleisteten Arbeit ausgeführt wird. Beispielsweise haben Sie möglicherweise eine Datenzeile, die Sie in einer früheren Excel-Sitzung eingegeben haben. In dieser Sitzung müssen Sie diese Datenzeile kopieren und als Grundlage für Ihre neuen Daten verwenden, jedoch mit einigen Änderungen.

In einer solchen Situation wäre es schön, eine schnelle Möglichkeit zu haben, eine leere Zeile nach der aktuellen Zeile einzugeben und die Daten in der aktuellen Zeile in die neue leere Zeile zu kopieren. In Excel gibt es dafür keine intrinsischen Befehle, aber ein Makro kann dies sehr einfach tun. Betrachten Sie das folgende Beispiel:

Sub InsertCopyRow1()

ActiveCell.EntireRow.Select     Selection.Copy     Selection.Insert Shift:=xlDown End Sub

Um das Makro zu verwenden, müssen Sie lediglich eine Zelle in einer beliebigen Zeile auswählen. Wenn das Makro ausgeführt wird, wird ein Duplikat der aktuellen Zeile direkt unter der Zeile eingefügt, in der Sie sich befinden.

Das einzige Problem bei dieser Lösung ist, dass die Excel-Oberfläche etwas „chaotisch“ bleibt (mangels eines besseren Wortes). Wenn Sie fertig sind, wird immer noch eine vollständige Reihe ausgewählt, und die neue Reihe enthält die „marschierenden Ameisen“

Festzelt darum herum.

Dieses Problem kann behoben werden, indem Befehle eingefügt werden, um die Auswahl zu reduzieren und an einen gewünschten Ort zu verschieben. Eine andere Möglichkeit besteht darin, einfach ein anderes Makro zu verwenden, das auf verschiedenen VBA-Befehlen basiert. Das folgende Makro fügt ebenfalls eine Zeile ein und kopiert sie, lässt jedoch die von Ihnen ausgewählte Zelle aktiv:

Sub InsertCopyRow2()

ActiveCell.Offset(1, 0).EntireRow.Insert     ActiveCell.EntireRow.Copy ActiveCell.Offset(1, 0).EntireRow End Sub

_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.

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

Dieser Tipp (10917) 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: