Wie fügt man in Excel automatisch eine Zeile basierend auf einem Zellwert ein?
Zeile unterhalb basierend auf Zellwert mit VBA einfügen
Zeile oberhalb basierend auf Zellwert mit Kutools für Excel einfügen
Zeile unterhalb basierend auf Zellwert mit VBA einfügen
Um eine Zeile basierend auf einem Zellwert durch Ausführen von VBA einzufügen, gehen Sie bitte wie folgt vor:
1. Drücken Sie gleichzeitig die Tasten Alt + F11, und das Fenster Microsoft Visual Basic for Applications erscheint.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie dann den folgenden VBA-Code in das erscheinende Modul-Fenster ein.
VBA: Zeile unterhalb einer Zelle basierend auf deren Wert einfügen.
Sub BlankLine()
'Updateby20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
3. Klicken Sie auf die Taste F5 oder die Schaltfläche Ausführen – es erscheint ein Dialogfeld, in dem Sie die Spalte mit den Nullen auswählen können. Siehe Screenshot:
4. Klicken Sie auf OK. Danach werden leere Zeilen unterhalb des Nullwerts eingefügt.
Tipp:
1. Wenn Sie Zeilen basierend auf einem anderen Wert einfügen möchten, ersetzen Sie einfach 0 im VBA-Code durch den gewünschten Wert: If Rng.Value = "0" Then.
2. Wenn Sie Zeilen oberhalb von Null oder einem anderen Wert einfügen möchten, können Sie den folgenden VBA-Code verwenden.
VBA: Zeile oberhalb eines Nullwerts einfügen:
Sub BlankLine()
'Updateby20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
Zeile oberhalb basierend auf Zellwert mit Kutools für Excel einfügen
Wenn Sie mit VBA nicht vertraut sind, probieren Sie einfach das Kutools für Excel-Tool „Bestimmte Zellen auswählen“ aus und fügen anschließend Zeilen wie oben beschrieben ein.
Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:
1. Wählen Sie die Liste aus, in der Sie bestimmte Zellen suchen möchten, und klicken Sie auf Kutools > Auswählen > Bestimmte Zellen auswählen. Siehe Screenshot:
2. Aktivieren Sie im erscheinenden Dialogfeld die Option Ganze Zeile, wählen Sie anschließend Gleich aus der Liste Typ angeben und geben Sie den gesuchten Wert in das rechte Textfeld ein. Siehe Screenshot:
3. Klicken Sie auf OK, und es erscheint ein Dialogfeld, das Sie über die Anzahl der ausgewählten Zeilen informiert – schließen Sie es einfach.
4. Platzieren Sie den Cursor in einer der ausgewählten Zeilen, klicken Sie mit der rechten Maustaste und wählen Sie im Kontextmenü Einfügen. Siehe Screenshot:
Nun wurden die Zeilen oberhalb basierend auf einem bestimmten Wert eingefügt.
Zeilen einfügen oberhalb basierend auf Zellwert
Verwandte Artikel:
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