Manueller Zeilenumbruch eliminieren
Peter
Guten Tag
Mit nachfolgendem Code eliminiere ich im seelektierten Bereich alle manuellen Zeilenumbrüche.
Frage: Lässt sich der Code optimieren, so dass nicht jede einzelne Zelle innerhalb der Selektion einzeln abgearbeitet wird?
Gruss, Peter
Sub SelectionUmbruch_raus1()
Dim rng As Range
For Each rng In Selection
Application.StatusBar = rng.Address
rng.value = Replace(rng.value, vbLf, "")
Next
End Sub
Anzeige