Datenquelle im Diagramm automatisch updaten
Martin
Sub Glaetten()
With ActiveSheet.UsedRange
.Cells.Value = Application.Trim(.Cells.Value)
End With
End Sub