Excel und VBA - Die Excel-FAQ

Zeilenumbrüche im aktiven Blatt entfernen

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Zeilenumbrüche im aktiven Blatt entfernen

Problem: Wie kann ich alle Zeilenumbrüche im aktiven Blatt entfernen?

StandardModule: basMain

Sub UmbruchRaus()
   Dim rng As Range
   For Each rng In ActiveSheet.UsedRange.Cells
      If InStr(rng.Text, Chr(10)) Then
         rng = Application.Substitute(rng, Chr(10), " ")
      End If
   Next rng
End Sub