hallo
so ???
Sub kjk()
Dim TText As String
'Ungültige Zeichen in Datei- oder Ordnernamen
' ~ " # % & * : < > ? / \ { | }
'Lesen
TText = Range("A1")
'Tauschen
TText = Replace(TText, "~", "")
TText = Replace(TText, """", "")
TText = Replace(TText, "#", "")
TText = Replace(TText, "%", "")
TText = Replace(TText, "&", "")
TText = Replace(TText, "*", "")
TText = Replace(TText, ":", "")
TText = Replace(TText, "<", "")
TText = Replace(TText, ">", "")
TText = Replace(TText, "?", "")
TText = Replace(TText, "/", "")
TText = Replace(TText, "\", "")
'du kannst aber auch tauschen
TText = Replace(TText, "{", "(")
TText = Replace(TText, "}", ")")
TText = Replace(TText, "|", "_")
MsgBox TText
End Sub
|