Makro automatisch ausführen
21.05.2014 17:25:01
Stephan
Liebe community,
ich habe folgendes Makro (nicht von mir) dass die Umlaute ändert.
ich würde es gerne so abändern, dass es etwaige Umlaut sofort nach Eingabe ändert.
Wie müsste ich es ergänezen?
Sub Umlaute()
Dim Zelle As Range
With Application.WorksheetFunction
For Each Zelle In Selection
Zelle.Value = .Substitute(.Substitute(.Substitute(.Substitute( _
.Substitute(.Substitute(.Substitute(Zelle.Value, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Next Zelle
End With
End Sub
Vielen Dank vorab,
Stephan