Wie kann man unnötige Leerstellen vor dem Zellinhalt automatisch löschen lassen? Hatte das schon mal hingekriegt (glaub ich) weiß aber leider nicht mehr wo und wie...
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Value = Application.Substitute(Target.Value, " ", "")
Application.EnableEvents = True
End Sub
Sub neu()
For Each cb In ActiveSheet.UsedRange
cb.Value = Application.Substitute(cb.Value, " ", "")
Next
End Sub