kennt jemand einen Makro zum Austausch jeglicher Sonderzeichen (/,. etc) gegen _ in einer bestimmten Zelle ?
mit riesem Dank
Walter
Sub KeineSonderzeichen()
Dim cell As Range
Dim re As Object
Set re = CreateObject("vbscript.regexp")
re.Pattern = "[^0-9a-zA-Z]"
re.Global = True
For Each cell In Selection
cell.Value = re.Replace(cell.Value, "_")
Next
Set re = Nothing
End Sub