wie kann ich ein Word/Excel Dokument auf bestimmte Zeichen Prüfen lassen ?
z.B. wenn ein "?" vorkommt, dieses durch ein "!" ersetzen.
Gruss
Ralf
Sub ersetzen()
Dim arr() As Variant
Dim x As Integer
'Immer abwechselnd: Gesuchtes Zeichen, Ersatzzeichen, gesuchtes Zeichen, Ersatzzeichen...
arr() = Array("~?~", "!", ";", ":", 1, 2)
For x = LBound(arr()) To UBound(arr()) Step 2
Cells.Replace arr(x), arr(x + 1), xlPart
Next x
End Sub