1: 2: 3: 4: 5: 6: 7:
VorRemoveSpaces () Schwacher cel als Strecke Für jeden cel in ActiveSheet.UsedRange cel = Ordnung (ersetzen (cel. Text, Chr (160), "")) Zunächst Enden-Unterseeboot