Excel - Makro zum Nachschlagen der Zelle und Hinzufügen einer neuen Zeile

Problem

Ich möchte ein Makro erstellen, das zum Beispiel Spalte A betrachtet und die zuletzt eingegebene Nummer findet. Dann füge eine Zeile darunter hinzu und mache dies jedes Mal, wenn es ausgeführt wird.

Lösung

Sie können dieses Makro verwenden:

 Sub Insert_Row () Dim n As Integer n = Cells (Rows.Count, 1) .End (xlUp) .Row Rows (n) .Select Selection.Insert Shift: = xlUp End Sub 

Hinweis

Danke an aquarelle für diesen Tipp im Forum.