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

Die MS Office-Apps sind sehr intelligent gestaltet und ich sage dies 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, über die ich spreche. Wissen, welche Funktionen in einem bestimmten App-Typ benötigt werden. Es stellt sicher, dass nichts Unwichtiges in das endgültige Angebot gelangt. Trotzdem war ich überrascht, dass Sie in Excel nicht mehr Zeilen in ein Arbeitsblatt einfügen können, sondern nicht die Anzahl der Zeilen auswählen können, die Sie hinzufügen möchten. Sie haben andere Problemumgehungen, um dies zu erreichen, z. B. die Anzahl der Zeilen, die Sie hinzufügen möchten, aus den vorhandenen Zeilen auszuwählen und dann die Einfügefunktion zu verwenden. Oder Sie können den Schritt zum Einfügen von Zeilen für so viele Zeilen wiederholen, wie Sie möchten. Es wiederholt sich, aber wenn Sie bereit sind, fünf Minuten Zeit zu sparen, kann dieses kleine Makro die Arbeit für Sie erledigen.

Da hierfür ein Makro erforderlich ist, müssen Sie Ihre Datei als makrofähige Excel-Datei speichern. Klicken Sie dazu im Fenster Speichern unter auf die Dropdown-Liste "Dateityp" und wählen Sie "Excel Marco Enabled Workbook (* xlsm)" aus.

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

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

Aktuelles Blatt als Objekt dimmen 'Alle ausgewählten Blätter durchlaufen. Für jedes CurrentSheet in ActiveWindow. SelectedSheets 'Fügen Sie oben auf jedem Blatt 5 Zeilen ein. CurrentSheet. Bereich ("a1: a5"). EntireRow. Nächstes aktuelles Blatt einfügen. 

Dieser Code fügt fünf Zeilen von ganz oben ein. Es wird im Code als A1: A5 bezeichnet. Um es Ihren Anforderungen entsprechend zu bearbeiten, 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 Anzahl von Zeilen 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 Zeilenmassen einfügen müssen. Es ist jedoch nur eine kleine Bearbeitung und funktioniert sehr gut, sodass sich die aufgewendete Zeit lohnt.

Makro über Microsoft Support