Fügen Sie mit diesem einfachen Makro eine benutzerdefinierte Anzahl von Zeilen in Excel ein

Die MS Office Apps sind sehr gestaltetintelligent und ich sage das nicht, nur weil sie meine Arbeit unendlich erleichtern. Ich sage es, weil es wahr ist. Vor einigen Tagen haben wir einen Beitrag zum Einfügen von YouTube-Videos in Office 2013 verfasst und festgestellt, dass die Option in MS Excel nicht vorhanden war, nur weil sie dort nicht benötigt wurde. Dies ist die Art von Intelligenz, von der ich spreche. Wissen, welche Funktionen in einem bestimmten App-Typ benötigt werden. Es stellt sicher, dass nichts, was irrelevant ist, in das endgültige Angebot gelangt. Dennoch war ich überrascht, dass Sie in Excel, in dem Sie mehr Zeilen in ein Arbeitsblatt einfügen können, nicht die Anzahl der Zeilen auswählen können, die Sie hinzufügen möchten. Sie können dies auch auf andere Weise erreichen, indem Sie beispielsweise die Anzahl der Zeilen auswählen, die Sie aus den vorhandenen hinzufügen möchten, und dann die Einfügefunktion verwenden. Sie können den Schritt zum Einfügen einer Zeile auch für beliebig viele Zeilen wiederholen. Es wiederholt sich, aber wenn Sie fünf Minuten Zeit haben, kann dieses kleine Makro den Job für Sie erledigen.

Da hierfür ein Makro erforderlich ist, müssen Sie dies tunSpeichern Sie Ihre Datei als eine Makro-fähige Excel-Datei. Klicken Sie dazu auf das Dropdown-Menü "Dateityp" im Fenster "Speichern unter" und wählen Sie "Excel Marco Enabled Workbook (* xlsm)".

Als nächstes ist es Zeit, das Makro zu schreiben. Gehen Sie zur Registerkarte Ansicht und klicken Sie auf Makros, um eine neue zu erstellen. Benennen Sie es nach Belieben und klicken Sie auf "Erstellen". Das folgende Fenster wird automatisch geöffnet.

Was hier relevant ist, sind das "Sub" und "End Sub"Linien. Die Unterzeile enthält den Namen Ihres Makros, während die End-Unterzeile das Ende der Kommandos in diesem Makro markiert. Da Sie es soeben erstellt haben, sollte sich zwischen diesen Zeilen nichts befinden wie im obigen Screenshot. Fügen Sie zwischen diesen beiden Zeilen Folgendes ein.

Dim CurrentSheet As Object
" Loop through all selected sheets.
For Each CurrentSheet In ActiveWindow.SelectedSheets
" Insert 5 rows at top of each sheet.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet

Dieser Code fügt fünf Zeilen von oben ein. Es wird im Code als A1: A5 bezeichnet. Um es Ihren Bedürfnissen anzupassen, müssen Sie diesen Bereich bearbeiten. Der erste Wert dient als Referenz dafür, wo die Zeilen eingefügt werden. Wenn Sie es in A100 ändern, werden die Zeilen nach den ersten neunundneunzig Zeilen eingefügt. Nach dem Festlegen des Referenzpunkts müssen Sie die Anzahl der Zeilen eingeben.

Zeilennummern werden durch den Zellbereich A1: A5 definiert. Dieser Bereich fügt 5 Zeilen ein. Um den richtigen Bereich für Ihre Zeilenanzahl zu finden, z. B. wenn Sie 25 Zeilen aus A99 einfügen möchten, fügen Sie dem Referenzpunkt 25 hinzu, sodass es A99 und minus eine Zelle davon ist. Das heißt A100 + 99-1 = A198. Sie fügen Zeilen und keine Spalten hinzu, sodass sich nur die Nummer und nicht der Spaltenbuchstabe ändert. Das Makro muss jedes Mal aktualisiert werden, wenn Sie Zeilen enmass einfügen müssen, aber es ist nur eine kleine Bearbeitung und es funktioniert wirklich gut, sodass sich die aufgewendete Zeit lohnt.

Makro über Microsoft Support