Gruppe
Allgemein
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