Das Makro glättet alle Werte einer Excel-Arbeitsmappe.
Das Makro ersetzt global die Formel =glätten. Damit hat der Benutzer die Möglichkeit alle Werte, in allen Sheets und in allen Zellen aufeinmal zu glätten.
Man kann die Funktion =Glätten() auch über ein Makro ausführen lassen.
Das Makro dazu:
Sub GlaettenTabelle1() Dim rC As Range Sheets("Tabelle1").Select Application.ScreenUpdating = False For Each rC In ActiveSheet.Range("F12:N1000") If Not (rC.HasFormula) Then rC = Trim(rC) Next End Sub
Es wird der Bereich F12:N1000 in der Tabelle1 geglättet.