Zeilenumbrüche entfernen

[Sven Cordes]

Hallo NG!

Ich habe in einigen Zellen einer Tabelle mehrere Zeilen.
Diese Zeilenumbrüche würde ich jetzt gerne automatisch entfernen lassen, da
es einige 1.000 Zellen sind...
Wenn ich aber nur "Zellenumbruch" in den Eigenschaften der Zelle
deaktiviere, wird die Zelle zwar einzeilig, aber es befindet sich immer noch
eine Zeilenumbruch in der Zelle, das sieht man an einem "Viereck"...
Ausserdem zeigt mir die Leiste oben den Inhalt auch noch mehrzeilig an, wenn
ich auf die Zelle klicke.

Würde mich freuen, wenn jemand eine Lösung hat, wie man mit VBA diese
Zellenumbrüche entfernen kann.

Danke schonmal im Voraus,

mfg
Sven Cordes

[unknown]

Hallo Sven,
versuch es mal mit folgendem Makro:

Sub FindenCHR10()
Dim rngBereich As Range
Dim rngFundstelle As Range
Dim strAdresse As String
Set rngBereich = ActiveSheet.UsedRange.Cells
With rngBereich
Set rngFundstelle = .Find(What:=Chr(10), _
LookIn:=xlValues, LookAt:=xlPart)
If Not rngFundstelle Is Nothing Then
strAdresse = rngFundstelle.Address
Do
rngFundstelle.Value = WorksheetFunction. _
Substitute(rngFundstelle.Value, Chr(10), " ")
rngFundstelle.WrapText = False
Set rngFundstelle = .FindNext(rngFundstelle)
Loop While Not rngFundstelle Is Nothing
End If
End With
End Sub

MfG Frank
_________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
Website: http://www.xl-faq.de

[Ralf Pfeifer]

Post by Sven Cordes
Hallo NG!
Ich habe in einigen Zellen einer Tabelle mehrere Zeilen.
Diese Zeilenumbrüche würde ich jetzt gerne automatisch entfernen lassen, da
es einige 1.000 Zellen sind...
Wenn ich aber nur "Zellenumbruch" in den Eigenschaften der Zelle
deaktiviere, wird die Zelle zwar einzeilig, aber es befindet sich immer noch
eine Zeilenumbruch in der Zelle, das sieht man an einem "Viereck"...
Ausserdem zeigt mir die Leiste oben den Inhalt auch noch mehrzeilig an, wenn
ich auf die Zelle klicke.
Würde mich freuen, wenn jemand eine Lösung hat, wie man mit VBA diese
Zellenumbrüche entfernen kann.

Nimm die Excel-Funktion =Säubern(). Die hilft gegen Umbrüche und andere
Unbill und die kannst Du bei Bedarf auch in ein Makro einbauen.


Gruß, Ralf.

[Helmut Weber]

Hallo Sven,
(das war meine Antwort in ...word.vba)
ausnahmesweise, hat aber mit Word-VBA nichts zu tun,
und VBA braucht man überhaupt nicht. Zeilenumbruch
in Zelle ist chr$(10), eingefügt mit alt-return.
Kann man im Dialog
"Bearbeiten, Suchen" eintippen mit
Numlock alt 010 und dann mit Leerzeichen ersetzen,
würde ich zumindest raten.
Gruss
Helmut Weber
"red.sys" & chr$(64) & "t-online.de"
Excel 97, W98