Leerzeichencode sehr langsam
Maris
warum ist dieser Code so langsam? Braucht knappe 10 Min bis er durchläuft :-(((
Sub leerzeichenweg1()
Dim c As Range
For Each c In Range("R2:R2000")
c.Value = Application.Substitute(c.Value, " ", "")
Next
End Sub
Maris
Anzeige