Sonderzeichen entferen
René
mit diesem Code entferne ich meine Freizeichen im Arbeitsblatt.
Dim c As Range
Application.ScreenUpdating = False
For Each c In Cells.SpecialCells(xlCellTypeConstants)
c = Trim(c)
Next
Application.ScreenUpdating = True
Gibt es auch einen Code mit dem ich wenn ich mit strFileName = Cells(1, 1).Value arbeite der alle Sonderzeichen entfernt wie ( oder / oder : usw.
Mit
strFilename = Replace(strname, ":", " ")
funzt es leider nicht.
Habe keine Idee mehr.
MfG René