Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.07.2025 07:22:38
Datei hochladen
18.07.2025 18:27:02
Mandatory fields for button & unhide/hide tabs and rows
18.07.2025 17:14:25
Zellen markieren mit relativen Verweisen
18.07.2025 12:37:01
VBA - Erst nach Änderung einer Zelle --> ander Zellen leeren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1476to1480
1476to1480
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

abschließende Leerzeilen in Zellen löschen

Forumthread: abschließende Leerzeilen in Zellen löschen

abschließende Leerzeilen in Zellen löschen
27.02.2016 12:44:57
Peter
Hallo,
ich habe folgendes Problem: Eine Excel-Tabelle (Export aus Outlook-Kontakten) gibt es u.a. eine Spalte mit Notizen, in deren Zellen häufig mehrere Leerzeilen stehen. Diese bekomme ich mit wiederholtem
Sub umbrueche()
Columns("G:G").Select
Selection.Replace What:="" & Chr(10) & "" & Chr(10) & "", Replacement:="" & Chr(10) & "",  _
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
weg (je zwei aufeinanderfolgende Zeilenumbrüche werden duch einen ersetzt, bis keine aufeinanderfolgenden mehr übrigbleiben.)
Lediglich abschließende Leerzeilen in einer Zelle werden damit nicht entfernt. Wie werde ich die los?
Viele Grüße,
Peter

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Datenbearbeitung
Tags
#formeln #leerzeilen #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: abschließende Leerzeilen in Zellen löschen
27.02.2016 12:57:13
Michael
Hallo Peter,
Mit
If right(Zelle, 1) = chr(10) then
kannst du prüfen, ob das letzte Zeichen ein Zeilenumbruch ist. Der Code müsste mit eine geeigneten Schleife über alle Zellen laufen. Ein Replace für alle Zellene auf einmal ist mir nicht bekannt.
Mfg

AW: abschließende Leerzeilen in Zellen löschen
27.02.2016 20:21:06
Peter
HAllo,
erst einmal vielen Dank für die Antwort. Das Problem des Entfernens der abschließenden Leerzeile konnte ich nun - mithilfe eines anderen Users - lösen. Bei Bedarf kann ich den Weg gerne posten.

Anzeige
AW: abschließende Leerzeilen in Zellen löschen
29.02.2016 10:37:26
Piet
Hallo Peter
schaut man sich die Makrozeile einmal genau an erkannt man einen logischen Fehler:
In dieser Anweisung sind -keine Space- enthalten: What:="" & Chr(10) & ""
Das müsste für Space entfernen so aussehen: What:=" " & Chr(10) & " "
Des weiteren bist du in einer Spalte, gibst aber die Anweisung für Zeilen durchsuchen
SearchOrder:=xlByRows damit sind Zeilen gemeint, nicht Spalten. Excel ignoriert es!
' Select kann man sich fast immer sparen, bei mir klappt es auch so:
Columns("G:G").Replace What:=Chr(10) & Chr(10), Replacement:=Chr(10)
mfg Piet
Sub umbrueche()
Columns("G:G").Select
Selection.Replace What:="" & Chr(10) & "" & Chr(10) & "", Replacement:="" & Chr(10) & ""
'  bei mir klappt es auch so:
Columns("G:G").Replace What:=Chr(10) & Chr(10), Replacement:=Chr(10)
End Sub

Anzeige
AW: abschließende Leerzeilen in Zellen löschen
29.02.2016 12:32:15
Peter
Hallo Piet,
vielen Dank für die Optimierung und die Feherhinweise. Die Umbrüche/Leerzeilen werden damit, bis auf die letzte (abschließende) Leerzeile entfernt. Diese letzte Leerzeile entferne ich (im Moment) damit, dass ich vor dem Entfernen der Leerzeilen in die letzte Zeile einer Zelle einen Text hinzufüge, der in der Tabelle so nicht vorkommt ("xxxxxxxxxx") und ihn nach dem Leerzeilen-Entfernen wieder lösche (hier wird diesem Text ein Chr(10) vorangestellt.

Anzeige
AW: abschließende Leerzeilen in Zellen löschen
29.02.2016 13:02:34
Daniel
Hi
ich würde hier mit Formeln arbeiten und dabei die Zeilenumbrüche durch Leerzeichen ersetzen.
dann kannst du die doppelten und Randleerzeichen mit GLÄTTEN entfernen (die normalen Leerzeichen muss man vorher durch ein anderes Zeichen ersetzen).
hierzu musst du aber in einer Schleife jede Zelle einzeln bearbeiten, oder das ganze in eine Formel packen.
in VBA schreibt man dann diese Formel ans TAbellenende und dann das Ergebnis als Wert in die Zielzelle.
das geht recht schnell und man braucht keine Schleife. 
With ActiveSheet.UsedRange
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(RC7,"" "",""|""),CHAR( _
10),"" "")),"" "",CHAR(10)),""|"","" "")"
.Offset(0, 7 - .Column).Formula = .Value
.ClearContents
End With
End With
Gruß Daniel
Anzeige

Forumthreads zu verwandten Themen

Formate in Zellen per Makro entfernen.
Joachim

Hi,
gibt es in VBA einen Befehl, mit dem man zB Spalte D so bearbeiten kann, dass alle Formateinstellungen rausfliegen, also alles sozusagen auf Standard steht.
Danke
Joachim
25.03.2009 18:56:49
Thread-ID: 1063929
4 Beiträge
Zeilen nicht drucken, wenn Spalte leer oder 0
Berlenbach

Hallo,
ich habe ein Problem mit dem unten angegebenen und hier veröffentlichten Makro:
Sub Drucken() Dim iRowL As Integer, iRow As Integer iRowL = Cells(Rows.Count, 3).End(xlUp).Row For iRow = 1 To iRowL If IsEmpty(Cells(iRow, 3)) Or Cells(iRow, 3).Value = 0 Then Rows(iRow).Hidden = T...
01.04.2009 09:37:06
Thread-ID: 1065835
8 Beiträge
Hyperlink entfernen und Zelle einfärben / Wert ?
Selma

Hallo Leute,
was muss ich in unten stehendem Makro anpassen, damit nicht nur der Hyperlink in Spalte C entfernt wird, sondern auch der Wert der nach dem Entfernung des Hyperlinks stehen bleibt ?
Sub Hyperlink_Makro() 'Wenn in Spalte C die Zelle die Füllfarbe 22 und ein Hyperlink hat d...
07.05.2009 15:13:04
Thread-ID: 1073652
17 Beiträge
Anzeige
Zeilen löschen wenn ...
Marion65

Hi zusammen,
habe eine Tabelle hochgeladen, mein Problem ist dort beschrieben.
Gruß Marion
https://www.herber.de/bbs/user/62707.xls
24.06.2009 04:57:02
Thread-ID: 1083974
8 Beiträge
Zeilen löschen wenn ...
Marion65

Hallo zusammen,
habe mein Problem in der Beispieldatei beschrieben. Für Eure Hilfe wäre ich Dankbar.
Gruß Marion
https://www.herber.de/bbs/user/62728.xls
Ps. Franz hatte mir schon ein Makro gebastelt, doch leider funktioniert es nicht richtig.
Sub BegriffSuchenZeilenLoesc...
24.06.2009 20:27:47
Thread-ID: 1084196
8 Beiträge
Zeile Löschen wenn aktuelle Spalte leer ist
Lutz

Hallo Excel-Spezialisten,
ich bekommen immer sehr umfangreiche Listen und muß nach bestimmten Kriterien löschen.
Ich bräuchte jetzt ein Makro, dass alle Zeilen löscht bei denen in der aktiven Spalte kein Eintrag ist - und eines, dass alle Spalten löscht bei denen in der aktuellen Zeile...
10.07.2009 21:58:59
Thread-ID: 1087780
4 Beiträge
leere Zellen löschen
Udo

Hallo zusammen,
ich hab folgendes Problem:
In Spalte A und B stehen Zahlen drin, wenn in Spalte A eine Zelle leer ist, steht in Spalte B eine Zahl und umgekehrt. Nun möchte ich die Werte der Spalten A und B zusammenführen, so dass ich nur eine Spalte mit den Zahlen habe ohne leere Zelle...
25.07.2009 21:51:47
Thread-ID: 1091320
20 Beiträge
Anzeige
Zeilen löschen, wenn in Spalte A nicht fett?
Selma

Hallo Leute,
ich möchte ab Zeile 1 bis Zeile 5000 folgende Zeilen löschen:
Wenn in Spalte A die Zelle leer ist, dann Zeile löschen
Wenn in Spalte A die Zelle gefüllt ist, aber nicht fett ist, dann die Zeile löschen.
Wie mache das per VBA ?
Besten Dank im Voraus !
VG,
...
28.07.2009 22:58:24
Thread-ID: 1092081
7 Beiträge
Zeile löschen, wenn in Zelle "40477E4-T" vorkommt?
Selma

Hallo Leute,
wenn in Spalte B in Zelle dies "40800E4-T" enthalten ist, dann soll die Zeile gelöscht werden.
Die letzte Zelle mit Inhalt kann in Spalte A ermittelt werden.
Wie mache ich das per VBA?
Besten Dank im Voraus!
Viele Grüße,
Selma
06.08.2009 09:44:46
Thread-ID: 1093925
11 Beiträge
leere Zeilen automatisch auszublenden
Lena

Hallo Excelfreunde,
Ist es möglich, leere Zeilen automatisch auszublenden? Um es besser zu erklären, habe ich hier eine Beispieldatei angefertigt.
https://www.herber.de/bbs/user/64718.xls
In Tabelle2 entstehen, je nachdem, was in Tabelle1 Spalte 1 eingetragen wird, Zeilen, welche le...
26.09.2009 15:35:39
Thread-ID: 1105696
8 Beiträge
Anzeige
Wirklich leere Zeilen löschen
Markus

Hallo,
verschiedene Makro's die ich im Archiv gefunden haben,
lösen nicht mein Problem.
Ich möchte alle Zeilen im aktuellen Sheet löschen, aber nur dann wenn,
keine Formeln, keine Werte und keine Formatierungen (z.B. Zellen gelb hinterlegt), keine Kommentare in den entsprechende...
30.09.2009 14:36:43
Thread-ID: 1106327
4 Beiträge
Anzeige
Zeilen löschen wenn...
Lasse

Hallo,
ich habe eine Tabelle in der eine Spalte "Name" enthalten ist.
In dieser Tabelle möchte ich alle Zeilen löschen, in denen bei "Name" nicht ein Name von einer Liste mit 25 Personen steht.
Vielen Dank im Voraus,
Lasse
12.11.2009 11:11:17
Thread-ID: 1116419
16 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Leerzeilen in Excel-Zellen effektiv entfernen

Schritt-für-Schritt-Anleitung

Um abschließende Leerzeilen in Excel-Zellen zu löschen, kannst du die folgenden Schritte durchführen:

  1. Öffne deine Excel-Datei mit den unerwünschten Leerzeilen.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu: Klicke auf Einfügen > Modul.

  4. Kopiere und füge den folgenden Code ein:

    Sub leereZeilenEntfernen()
   Dim Zelle As Range
   For Each Zelle In Selection
       If Right(Zelle.Value, 1) = Chr(10) Then
           Zelle.Value = Left(Zelle.Value, Len(Zelle.Value) - 1)
       End If
   Next Zelle
End Sub

  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Wähle die Zellen aus, in denen du die Leerzeilen entfernen möchtest.

  7. Führe das Makro aus: Drücke ALT + F8, wähle leereZeilenEntfernen und klicke auf Ausführen.

Damit sollten die abschließenden Leerzeilen in den Zellen entfernt werden.

Häufige Fehler und Lösungen

  • Fehler: "Excel leere Zeilen am Ende lassen sich nicht löschen."

    • Lösung: Stelle sicher, dass du das richtige Ende der Zelle prüfst, wie im oben angegebenen Code gezeigt.

  • Fehler: "Excel viele leere Zeilen am Ende löschen."

    • Lösung: Der oben genannte Code entfernt nur die letzte Leerzeile. Um mehrere zu entfernen, ändere die Logik im Code oder verwende eine Schleife.

  • Fehler: "Excel leere Zeilen löschen am Ende funktioniert nicht."

    • Lösung: Achte darauf, dass du die Zellen korrekt auswählst und das Makro ausführst.

Alternative Methoden

Falls du keine VBA-Makros verwenden möchtest, gibt es auch andere Methoden:

  1. Mit Formeln arbeiten:

    • Du kannst die Formel =WENN(RECHTS(A1;1)=CHAR(10);LINKS(A1;LÄNGE(A1)-1);A1) verwenden, um die Leerzeilen zu entfernen.

  2. Suchen und Ersetzen:

    • Gehe zu Start > Suchen & Auswählen > Ersetzen, gib ^10 in das Feld „Suchen nach“ ein und lasse das Feld „Ersetzen durch“ leer.

  3. Daten filtern:

    • Filtere die Daten und lösche die leeren Zellen manuell.

Praktische Beispiele

  • Beispiel 1: Du hast einen Export aus Outlook-Kontakten mit einer Spalte, die viele Leerzeilen enthält. Nutze das VBA-Skript, um die überflüssigen Leerzeilen in Zellen schnell zu entfernen.

  • Beispiel 2: Wenn du eine Tabelle hast, in der du die Leerzeilen automatisch löschen möchtest, kannst du das Makro so anpassen, dass es auf alle Zellen in einem bestimmten Bereich angewendet wird.

Tipps für Profis

  • Makros speichern: Speichere dein Makro in der Arbeitsmappe, damit du es bei Bedarf schnell wiederverwenden kannst.
  • Daten sichern: Mach immer eine Sicherheitskopie deiner Daten, bevor du mit dem Löschen von Leerzeilen beginnst.
  • Automatisierung: Nutze die Möglichkeit, das Makro automatisch beim Öffnen der Datei auszuführen, wenn das häufig benötigt wird.

FAQ: Häufige Fragen

1. Wie kann ich leere Zeilen in Excel automatisch löschen? Du kannst VBA verwenden, um leere Zeilen automatisch zu entfernen. Das oben beschriebene Makro hilft dabei.

2. Funktioniert das auch in Excel 365? Ja, die beschriebenen Methoden funktionieren in Excel 365 sowie in älteren Versionen.

3. Wie viele leere Zeilen kann ich in Excel auf einmal löschen? Du kannst so viele leere Zeilen löschen, wie du möchtest, solange du die richtigen Bereiche auswählst und das Makro oder die Formel korrekt anwendest.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige