Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Leerzeilen aus Text in einer Zelle löschen

Leerzeilen aus Text in einer Zelle löschen
R.Schmitt
Guten Morgen,
daß ich mit

Sub Char10()
Cells.Replace What:=Chr$(10), Replacement:="", LookAt:=xlPart
End Sub

die Zeilenumbrüche aus einem Text entfernen kann ist klar.
Ich hänge gedanklich nur gerade an der Aufgabenstellung, die
Leerzeilen aus einem Text entfernen zu müßen.
Aus :
Bagdad
Die Entführer der beiden deutschen Geiseln im Irak haben mit deren Tötung gedroht, sollte die Bundesregierung ihre Forderungen nicht erfüllen.
Der Fernsehsender al-Arabija zeigte ein weiteres Video.
Darin sind die beiden Geiseln am Boden kniend zu sehen.
Hinter ihnen stehen die bewaffneten Entführer.
Das Video hat keinen Ton.
sollte also das hier werden
Bagdad
Die Entführer der beiden deutschen Geiseln im Irak haben mit deren Tötung gedroht, sollte die Bundesregierung ihre Forderungen nicht erfüllen.
Der Fernsehsender al-Arabija zeigte ein weiteres Video.
Darin sind die beiden Geiseln am Boden kniend zu sehen.
Hinter ihnen stehen die bewaffneten Entführer.
Das Video hat keinen Ton.
mit dem obigen Makro erhalte ich jedoch :
BagdadDie Entführer der beiden deutschen Geiseln im Irak haben mit deren Tötung gedroht, sollte die Bundesregierung ihre Forderungen nicht erfüllen.Der Fernsehsender al-Arabija zeigte ein weiteres Video.Darin sind die beiden Geiseln am Boden kniend zu sehen.Hinter ihnen stehen die bewaffneten Entführer.Das Video hat keinen Ton.
Woran erkenne ich also eine Leerzeile ?
Viele Grüße
R.Schmitt
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Leerzeilen aus Text in einer Zelle löschen
14.02.2006 11:26:30
u_
Hallo,
versuchs mal so:
Cells.Replace What:=Chr$(10)&chr(10), Replacement:=chr(10), LookAt:=xlPart
Gruß
Geist ist geil!
AW: Leerzeilen aus Text in einer Zelle löschen
14.02.2006 11:28:44
Tinu
Hallo R.
Was Du löschen willst, sind nicht Zeilenumbrüche, sondern Leerzeilen. Diese bestehen immer aus zwei aufeinanderfolgenden Zeilenumbrüchen. Suche also nach doppelten Zeilenumbrüchen und ersetze sie durch einen einzelnen.
Gruss
Tinu
Anzeige
AW: Leerzeilen aus Text in einer Zelle löschen
14.02.2006 11:39:10
R.Schmitt
Hallo u_ und Tinu,
stimmt natürlich (@'?&grummel**).
Soviel zum Thema Geist ist Geil ;-))
Jetzt muß ich mir nur noch überlegen,
wie ich mehr als eine Leerzeile raus-
kriege. Am Einfachsten wäre wohl das
Makro mehrmals hintereinander durch -
laufen zu lassen. Damit bekommen ich
wohl auch 8 Leerzeilen am Ende eines
Textes raus.
Viele Grüße
R.Schmitt (der gleich lecker Indisch essen geht)
Anzeige
Nachtrag : Formel zu lang......
14.02.2006 14:02:14
R.Schmitt
Nochmals hallo,
shit .... das ganze scheint nur bis zu einer maximalen Anzahl
von Zeichen in einer Zelle zu gehen - oder liege ich da falsch ?
Es funktioniert in einigen Zellen - andere mit einem längeren
Inhalt bringen besagten Fehler.
Kann der denn irgendwie umgangen werden ?
Viele Grüße
R.Schmitt
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Leerzeilen aus Text in einer Zelle entfernen


Schritt-für-Schritt-Anleitung

Um Leerzeilen in einer Zelle in Excel zu entfernen, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

  1. Öffne Excel und lade die Datei, in der du die Leerzeilen entfernen möchtest.

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

  3. Füge ein neues Modul hinzu: Klicke im Menü auf "Einfügen" und wähle "Modul".

  4. Füge den folgenden Code ein:

    Sub LeerzeilenEntfernen()
       Cells.Replace What:=Chr$(10) & Chr(10), Replacement:=Chr(10), LookAt:=xlPart
       Cells.Replace What:=Chr(10) & Chr(10), Replacement:="", LookAt:=xlPart
    End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.

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

Nach dem Ausführen des Makros sollten alle Leerzeilen in der Zelle entfernt sein.


Häufige Fehler und Lösungen

  1. Das Makro entfernt keine Leerzeilen: Stelle sicher, dass du das Makro korrekt ausgeführt hast. Überprüfe auch, ob die Zellen tatsächlich Leerzeilen enthalten.
  2. Fehlermeldung bezüglich der Zeichenanzahl: Excel hat eine maximale Zeichenanzahl pro Zelle. Wenn du mehr als 32.767 Zeichen hast, kann es zu Problemen kommen. Versuche den Text in mehrere Zellen aufzuteilen.
  3. Das Makro funktioniert nicht in bestimmten Zellen: Überprüfe, ob die Zellen in einem geschützten Bereich liegen oder spezielle Formatierungen haben, die das Makro beeinflussen könnten.

Alternative Methoden

Falls du kein Makro verwenden möchtest, kannst du auch die Suchen und Ersetzen-Funktion nutzen:

  1. Markiere die Zelle oder den Bereich, in dem du die Leerzeilen entfernen möchtest.
  2. Drücke STRG + H, um das "Suchen und Ersetzen"-Fenster zu öffnen.
  3. Gib im Feld "Suchen nach" folgendes ein: Alt + 010 (drücke Alt und halte die Taste gedrückt, während du auf dem Ziffernblock 010 eintippst).
  4. Lass das Feld "Ersetzen durch" leer.
  5. Klicke auf "Alle ersetzen".

Diese Methode kann hilfreich sein, wenn du keine Programmierkenntnisse hast.


Praktische Beispiele

Angenommen, du hast den folgenden Text in einer Zelle:

Hallo,

das ist ein Test.

Danke!

Nach dem Ausführen des Makros oder der Verwendung der Suchen und Ersetzen-Funktion sollte der Text so aussehen:

Hallo,
das ist ein Test.
Danke!

Durch die Entfernung der doppelten Zeilenumbrüche sind die überflüssigen Leerzeilen entfernt.


Tipps für Profis

  • Nutze die Funktion TRIM(), um überflüssige Leerzeichen am Anfang und Ende eines Textes zu entfernen. Kombiniere dies mit dem Entfernen von Leerzeilen für noch saubere Ergebnisse.
  • Wenn du häufig mit langen Texten arbeitest, erwäge, benutzerdefinierte Makros zu erstellen, die verschiedene Textformatierungen automatisieren.

FAQ: Häufige Fragen

1. Wie viele Leerzeilen kann ich mit einem Makro entfernen?
Das Makro entfernt beliebig viele Leerzeilen, solange die Zeichenanzahl innerhalb der Excel-Grenzen bleibt.

2. Funktioniert das Entfernen von Leerzeilen in allen Excel-Versionen?
Ja, die vorgestellten Methoden funktionieren in den meisten aktuellen Excel-Versionen, einschließlich Excel 2016, 2019 und Microsoft 365.

3. Kann ich auch Leerzeilen in mehreren Zellen gleichzeitig entfernen?
Ja, du kannst den gesamten Bereich auswählen und das Makro oder die Suchen und Ersetzen-Funktion auf alle ausgewählten Zellen anwenden.

4. Was ist der Unterschied zwischen Zeilenumbrüchen und Leerzeilen?
Zeilenumbrüche trennen Textabschnitte, während Leerzeilen aus aufeinanderfolgenden Zeilenumbrüchen bestehen und Platz im Text einnehmen.

Beliebteste Forumthreads (12 Monate)

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