Wie löscht man in Excel alle Leerzeilen oder ausschließlich die erste Zeile innerhalb einer Zelle?
Möglicherweise erhalten Sie eine Arbeitsmappe mit Zellen, die mehrzeiligen Text enthalten, der mit Leerzeilen durchmischt ist. Wie können Sie diese Leerzeilen in den Zellen löschen? Und wie sieht es aus, wenn Sie nur die erste Zeile löschen möchten? Dieser Artikel führt Sie Schritt für Schritt durch den Vorgang.
Alle Leerzeilen in Zellen mit VBA-Code löschen
Nur die erste Zeile in Zellen mit VBA-Code löschen
Alle Leerzeilen in Zellen mit VBA-Code löschen
Wie im folgenden Screenshot gezeigt, löschen Sie alle Leerzeilen in den Zellen ganz einfach mit dem folgenden VBA-Code.
1. Drücken Sie auf Ihrer Tastatur die Tasten Alt+F11, um ein Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie im Microsoft Visual Basic for Applications-Fenster auf Einfügen > Modul. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das Modul-Fenster ein.
VBA-Code: Alle Leerzeilen in Zellen löschen
Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
For I = 1 To Len(xCell) - Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
Next
Next
End Sub3. Drücken Sie die Taste F5, um den Code auszuführen. Wählen Sie anschließend im Dialogfeld Kutools für Excel die Zellen mit den zu löschenden Leerzeilen aus und klicken Sie abschließend auf die Schaltfläche OK.
Sie sehen, dass alle Leerzeilen aus den angegebenen Zellen entfernt wurden, wie im folgenden Screenshot gezeigt – der Text bleibt jedoch weiterhin auf mehrere Zeilen verteilt.
Nur die erste Zeile in Zellen mit VBA-Code löschen
Wie im folgenden Screenshot gezeigt, hilft Ihnen der folgende VBA-Code dabei, die erste Zeile in den Zellen A2 und A3 zu löschen.
1. Drücken Sie die Tasten Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie im Microsoft Visual Basic for Applications-Fenster auf Einfügen > Modul. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das Modul-Fenster ein.
VBA-Code: Nur die erste Zeile in Zellen löschen
Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
Dim xCell As Range
For Each xCell In Target.Cells
xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
Next
End Sub
Sub StartRemove()
Dim xRng As Range
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
RemoveFirstLine xRng
End Sub3. Drücken Sie die Taste F5, um den Code auszuführen. Wählen Sie im erscheinenden Dialogfeld Kutools für Excel die Zellen aus, bei denen Sie nur die erste Zeile löschen möchten, und klicken Sie anschließend auf die Schaltfläche OK.
Sie sehen, dass die ersten Zeilen aus den angegebenen Zellen entfernt wurden – wie im folgenden Screenshot gezeigt.
Verwandter 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