ich möchte aus der Spalte B alle Sonderzeichen
wie z.B. _, (,),? usw. entfernen.
Mein Versuch funktioniert leider nicht.
Wer kann helfen?
Siehe Anlage
Danke
Peter
Sub SonderzDel()
Dim a As Integer
For a = 2 To 5 'Cells(65536, 2).End(xlUp).Row
If Cells(a, 2).Value = Chr(KeyAscii) Like "[0-9 a-z A-Z]" = False Or _
KeyAscii = 32 Then
Beep
MsgBox "Nur Zahlen und Buchstaben erlaubt!"
KeyAscii = 0
End If
Next a
End Sub