Zeilenumbrüche aus Zellen entfernen

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

ich möchte in einer Excel-Tabelle die (durch Eingabe von Alt+Enter erzeugten) Zeilenumbrüche aus den Zellen entfernen.

Idealerweise soll dies mittels VBA erfolgen aber auch ander Vorschläge sind willkommen. Hat jemand eine Lösung zu diesem Problem?

Danke im voraus,
Tom

2

Hallo Tomas

Folgender VBA-Code ersetzt in allen Zellen des aktiven Tabellenblattes Zeilenumbrüche mit einem Leerschlägen:

Gruss
S. Widmer

Sub ZeilenunbrücheEntfernen()
For rwIndex = 1 To Cells.SpecialCells(xlLastCell).Row
For colIndex = 1 To Cells.SpecialCells(xlLastCell).Column
With Cells(rwIndex, colIndex)
ofs = InStr(.Value, Chr(10))
While ofs > 0
.Value = Left(.Value, ofs - 1) & " " & Right(.Value, Len(.Value) - ofs)
ofs = InStr(.Value, Chr(10))
Wend
End With
Next colIndex
Next rwIndex
End Sub

3

Hello again

Folgendes müsste performander sein:

SW

Sub ZeilenunbrücheEntfernen()
MaxRows = Cells.SpecialCells(xlLastCell).Row
MaxCols = Cells.SpecialCells(xlLastCell).Column
For rwIndex = 1 To MaxRows
For colIndex = 1 To MaxCols
With Cells(rwIndex, colIndex)
ofs = InStr(.Value, Chr(10))
While ofs > 0
.Value = Left(.Value, ofs - 1) & " " & Right(.Value, Len(.Value) - ofs)
ofs = InStr(.Value, Chr(10))
Wend
End With
Next colIndex
Next rwIndex
End Sub

4

hello again

Hier noch die Lösung von Meister Jörg Lorenz :

Sub ZeilenumbrücheErsetzen2()
ActiveSheet.Cells.Replace Chr(10), " "
End Sub

Gruss
S. Widmer