ich bentötige schon wieder Hilfe.
Meine Exportdatai enhält Sonderzeichen und ich verwende den Inhalt für meine Windowsordnernamen. Daher habe ich versucht einen VBA-Code zu basteln, der alle Sonderzeichen nach einer Vorbotsliste löscht.
Am Anfang & Ende vom String sollen Sonderzeichen einfach gelöschen werden. Die Sonderzeichen Dazwischen sollen durch "_" ersetzt werden.
Bsp. >*A>*B>*C>* wird zu A_B_C
Anbei meine Anfänge. Allerdings löscht dieser Ablauf gerade den gesamten markierten Bereich.
Public Sub SondZeichloeschen2()
Dim C As Range
Dim n As Integer
Dim Temp, Verboten As String
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
For Each C In Selection
With C
Verboten = "\/:*?""|]*_ "
Temp = ""
For n = 1 To Len(Verboten)
Temp = Replace(Temp, Mid(Verboten, n, 1), "")
Next
.Value = Temp
End With
Next C
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Danke für die HilfeGruß
Basti