Zeilenumbruch in Zelle auslesen

Forumthread: Zeilenumbruch in Zelle auslesen

26.03.2007 14:33:00

Thomas

Hallo liebe VBA-Kenner,
ich erstelle mit Hilfe von VBA einen mehrspaltigen Report.
Das Problem:
Die Zellen werden mit sehr unterschiedlich langen Texten gefüllt. Das führt in der Zelle u.U. zu mehreren Zeilenumbrüchen. Durch die entsprechende Zeilenhöhe wirken kurze Einträge in den anderen Spalten oft verloren und zusammenhangslos.
Mein Lösungsgedanke:
Der Text soll an den Stellen der Zeilenumbrüche auf die darunterliegenden Zellen verteilt werden.
Leider ist es mir auch nicht mit chr(10) gelungen die Zeilenumbrüche auszulesen.
Für Lösungsvorschläge bin ich allen sehr dankbar
Gruß
Thomas

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilenumbruch in Zelle auslesen

26.03.2007 15:35:19

fcs
AW: Zeilenumbruch in Zelle auslesen

26.03.2007 16:29:12

Thomas
AW: Zeilenumbruch in Zelle auslesen

26.03.2007 15:40:00

Andreas
AW: Zeilenumbruch in Zelle auslesen

26.03.2007 16:37:05

Thomas

AW: Zeilenumbruch in Zelle auslesen

26.03.2007 15:35:19

fcs

Hallo Thomas,
in Exelzellen kann man nur die Zeilenumbrüche auslesen, die mit der Tastenkombination Alt+Enter gesetzt sind. Die automatischen Zeilenumbrüche haben keinen Code.
Wenn du die vertikale Ausrichtung der Zellen auf "oben" setzt, dann sollte das Problem mit den "verloren wirkenden" Einträgen eigentlich verschwinden. Der Zellinhalt beginnt dann immer oben in der Zelle.
Gruß
Franz

AW: Zeilenumbruch in Zelle auslesen

26.03.2007 16:29:12

Thomas

Vielen Dank Franz für Deinen Tipp,
das würde in vielen Fällen helfen, aber die Zellen stehen in diesem Report auch vertikal in einer Beziehung zueinander. Z.B. steht ein Datum in der einen Zelle und der dazugehörige Text darunter.
Gruß
Thomas

AW: Zeilenumbruch in Zelle auslesen

26.03.2007 15:40:00

Andreas

Hallo Thomas,
versuch's doch mal mit WrapText = True oder False, also bspw so:
Dim c As Range
With Selection
For Each c In Selection
If c.WrapText = True Then
Cells(9, 1) = "Formattechnischer Umbruch"
Else
Cells(9, 1) = "Kein formattechnischer Umbruch"
End If
Next c
End With
~f~
Fixe, manuelle Umbrüche findest du wie schon versucht mit CHR(10), also so in etwa:
~f~
With Selection
If InStr(1, .Value, Chr(10), vbTextCompare) > 0 Then
Cells(1, 1) = "Zeilenumbruch"
Else
Cells(1, 1) = "Kein Zeilenumbruch"
End If
End With
Grüße
Andreas

AW: Zeilenumbruch in Zelle auslesen

26.03.2007 16:37:05

Thomas

Hallo Andreas,
das ist 'ne tolle Idee. Damit komm' ich ein Stück weiter, weil ich denke, dass ich jetzt über eine Schleife feststellen kann, wann im Text ein Umbruch entsteht.
Da kann ich erst mal wieder basteln.
Herzlichen Dank!
Die Hilfe kam außerdem super schnell
Gruß
Thomas

Infobox / Tutorial

Zeilenumbruch in Excel-Zellen auslesen und verwalten

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Zellen auswählen: Markiere die Zellen, in denen Du die Zeilenumbrüche überprüfen möchtest.
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Modul einfügen: Klicke auf Einfügen und wähle Modul.

Code einfügen: Füge den folgenden Code in das Modul ein:

Dim c As Range
With Selection
   For Each c In Selection
       If c.WrapText = True Then
           Cells(9, 1) = "Formattechnischer Umbruch"
       Else
           Cells(9, 1) = "Kein formattechnischer Umbruch"
       End If
   Next c
End With

Code ausführen: Schließe den VBA-Editor und führe das Makro aus, um die Ergebnisse zu sehen.

Häufige Fehler und Lösungen

Problem: Der Zeilenumbruch wird nicht erkannt.
- Lösung: Stelle sicher, dass die Zeilenumbrüche mit ALT + Enter eingefügt wurden. Automatische Zeilenumbrüche haben keinen erkennbaren Code.
Problem: Zellinhalt wirkt verloren.
- Lösung: Setze die vertikale Ausrichtung der Zellen auf "oben". Das sorgt dafür, dass der Text immer am oberen Rand der Zelle beginnt.

Alternative Methoden

WrapText-Einstellung: Du kannst auch die WrapText-Eigenschaft direkt in Excel aktivieren, um die Zellen so zu formatieren, dass der Text innerhalb der Zelle umgebrochen wird. Gehe zu Start > Ausrichtung und aktiviere das Kontrollkästchen für Zeilenumbruch.
TEXTVERKETTEN-Funktion: Wenn Du mehrere Z

Beliebteste Forumthreads (12 Monate)

Forumthread: Zeilenumbruch in Zelle auslesen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Zeilenumbruch in Excel-Zellen auslesen und verwalten

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread