Wie fügt man eine leere Zeile oberhalb eines bestimmten Textes in Excel ein?
 |  |  |
Haben Sie schon einmal versucht, beim Arbeiten an einem Arbeitsblatt leere Zeilen oberhalb eines bestimmten Textes in einer Spalte einzufügen? Angenommen, in Spalte A stehen einige Namen – und Sie möchten nun jeweils eine leere Zeile oberhalb jeder Zelle einfügen, die den Namen „Mike“ enthält, wie im linken Screenshot gezeigt. Excel bietet dafür zwar keine direkte Funktion, doch in diesem Artikel stelle ich Ihnen einige nützliche Tricks vor, mit denen Sie diese Aufgabe problemlos meistern können.
Einfügen von Leere Zeile oberhalb eines bestimmten Textes mithilfe von VBA-Code
Einfügen von Leere Zeile oberhalb eines bestimmten Textes mit Kutools für Excel
Einfügen von Leere Zeile oberhalb eines bestimmten Textes mithilfe von VBA-Code
Das manuelle, zeilenweise Einfügen einer leeren Zeile oberhalb des gesuchten Textes kostet viel Zeit. Deshalb habe ich für Sie einen VBA-Code erstellt, mit dem Sie gleichzeitig eine leere Zeile oberhalb aller Zellen mit einem bestimmten Wert einfügen können.
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie anschließend das folgende Makro in das Modul-Fenster ein.
VBA-Code: Leere Zeile schnell oberhalb eines bestimmten Textes einfügen
Sub test1()
'updateby Extendoffice
Dim i As Long
Dim xLast As Long
Dim xRng As Range
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
If (xRng.Columns.Count > 1) Then
MsgBox "the selected range must be one column", , "Kutools for Excel"
Exit Sub
End If
xLast = xRng.Rows.Count
For i = xLast To 1 Step -1
If InStr(1, xRng.Cells(i, 1).Value, "Mike") > 0 Then
Rows(xRng.Cells(i, 1).Row).Insert shift:=xlDown
End If
Next
End Sub
3. Drücken Sie nun die Taste F5, um diesen Code auszuführen. Anschließend erscheint ein Dialogfeld, in dem Sie aufgefordert werden, die Spaltendaten auszuwählen, die den gesuchten Text enthalten – oberhalb dieser Spalte wird dann eine neue Zeile eingefügt (siehe Screenshot):
4. Klicken Sie anschließend auf die Schaltfläche OK, und die leeren Zeilen wurden oberhalb des Textes „Mike“ eingefügt.
Hinweis: Im obigen Code können Sie den Textwert „Mike“ durch beliebige andere Werte ersetzen, die Sie benötigen – direkt im Skript If InStr(1, xRng.Cells(i, 1).Value, „Mike") > 0Then.
Einfügen von Leere Zeile oberhalb eines bestimmten Textes mit Kutools für Excel
Falls Sie Kutools für Excel installiert haben, können Sie mit der Funktion Bestimmte Zellen auswählen zunächst die gewünschten Zellwerte markieren und anschließend die integrierte Excel-Funktion „Arbeitsblattzeilen einfügen“ nutzen, um leere Zeilen auf einmal einzufügen.
Nach der Installation von Kutools für Excelgehen Sie bitte wie folgt vor:
1. Wählen Sie den gewünschten Datenbereich aus.
2. Klicken Sie anschließend auf Kutools > Auswählen > Bestimmte Zellen auswählen (siehe Screenshot):
3. Wählen Sie im Dialogfeld Bestimmte Zellen auswählen unter Zelle die Option Auswahltyp aus, und legen Sie anschließend im Abschnitt Typ angeben die gewünschten Kriterien fest. In diesem Fall wähle ich Gleich aus der Liste Typ angeben und gebe den gewünschten Namen ein (siehe Screenshot):
4. Klicken Sie anschließend auf die Schaltfläche OK, um alle Zellen mit dem Wert „Mike“ gleichzeitig auszuwählen (siehe Screenshot):
5.Nachdem Sie die Zellen mit dem gesuchten Text markiert haben, klicken Sie bitte auf Start>Einfügen>Arbeitsblattzeilen einfügen, und die Leere Zeilen werden oberhalb des markierten Textes eingefügt (siehe Screenshots):
 | | |
Laden Sie Kutools für Excel jetzt herunter und testen Sie es kostenlos!
Demo: Einfügen von Leere Zeile oberhalb eines bestimmten Textes mit Kutools für Excel
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