Zeilenumbrüche im aktiven Blatt entfernen

Thema: Allgemein - Gruppe Ansicht

Arbeitsmappe

117100    077699

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