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, wenn Sie schnell eine leere Zeile nach der aktuellen Zeile eingeben und die Daten in der aktuellen Zeile in die neue leere Zeile kopieren könnten. 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 (2042) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier: