Wie fügt man in Excel leere Zeilen basierend auf den Werten der Zellen darüber ein?
In Excel müssen Sie unter Umständen leere Zeilen unterhalb von Zellen basierend auf deren numerischen Werten einfügen. Dies manuell zu erledigen, kann zeitaufwendig sein – doch mit einem einfachen VBA-Makro automatisieren Sie den Prozess und fügen blitzschnell die erforderliche Anzahl leerer Zeilen unterhalb jeder Zelle in einem ausgewählten Bereich ein, wie unten dargestellt.
 |  |  |
Zeilen einfügen basierend auf Zellenwerten
Zeilen einfügen basierend auf Zellenwerten
Wenn Sie leere Zeilen basierend auf Zellenwerten einfügen möchten, können Sie hierfür einen Makrocode verwenden.
1. Aktivieren Sie das verwendete Arbeitsblatt und drücken Sie die Alt + F11-Tasten, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Skript ein.
Sub Insert()
'UpdatebyExtendoffice20170926
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range to use(single column):", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub
3. Drücken Sie die F5-Taste, um den Code auszuführen. Danach erscheint ein Dialogfenster, in dem Sie aufgefordert werden, eine Liste zur Verarbeitung auszuwählen. Siehe Screenshot:
4. Klicken Sie auf OK, dann werden die leeren Zeilen eingefügt.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins