Sonderzeichen über Msgbox ausgeben
31.03.2022 10:02:54
Kerstin
Ich habe wieder einmal ein Problem:
1. Ich möchte wissen, ob sich Sonderzeichen in Zelle N1 befinden. Falls ja dann
2. Sonderzeichen in Zelle N1 entfernen. Hierzu habe ich bereits einen funktionierenden Code im www gefunden s.u.
3. möchte ich das oder die Sonderzeichen in einer Msgbox ausgeben, die sich im String in Zelle N1 befanden
Sub OhneSonderzeichen()
'If Range("N1") keine Sonderzeichen then
'Exit sub
'Else
Dim var As String
Dim i As Integer
Const c_Sonder As String = " .;:#äüö+?)=%$&("
var = Range("N1")
For i = 1 To Len(c_Sonder)
var = Replace(var, Mid(c_Sonder, i, 1), "")
Next i
Range("N1") = var
'Hier sollen die gefundenen Sonderzeichen aufgezählt werden
MsgBox "Folgende Sonderzeichen wurde(n) entfernt: " & Gefundene SONDERZEICHEN
'End If
End Sub
In der MsgBox sollen also die Zeichen "&" u. "/" ausgegeben werden
Und wenn ihr ganz toll seid, dann sollen doppelt gefundene Sonderzeichen nur ein Mal ausgegeben werden
Hoffentlich kann mir jemand bei den Punkten 1 und besonders bei 2 helfen...
Viele Grüße
Kerstin