Ich habe wohl eine Funktion Application.WorksheetFunction.Substitute gefunden, aber kein 'UPPER' (wie es in einer Formel heißt).
Ich habe es jetzt so versucht, aber das dauert ewig.
Es geht doch sicher auch einfacher!
Do While ActiveCell.Value <> ""
ActiveCell.Value =
Application.WorksheetFunction.Substitute _
(ActiveCell.Value, "a", "A")
ActiveCell.Value =
Application.WorksheetFunction.Substitute _
(ActiveCell.Value, "b", "B")
ActiveCell.Value =
Application.WorksheetFunction.Substitute _
(ActiveCell.Value, "c", "C")
....etc.
ActiveCell.Value =
Application.WorksheetFunction.Substitute _
(ActiveCell.Value, "ä", "AE")
ActiveCell.Value =
Application.WorksheetFunction.Substitute _
(ActiveCell.Value, "ö", "OE")
ActiveCell.Value =
Application.WorksheetFunction.Substitute _
(ActiveCell.Value, "ü", "UE")
ActiveCell.Value =
Application.WorksheetFunction.Substitute _
(ActiveCell.Value, "ß", "SS")
ActiveCell.Value =
Application.WorksheetFunction.Substitute _
(ActiveCell.Value, "Ä", "AE")
ActiveCell.Value =
Application.WorksheetFunction.Substitute _
(ActiveCell.Value, "Ö", "OE")
ActiveCell.Value =
Application.WorksheetFunction.Substitute _
(ActiveCell.Value, "Ü", "UE")
ActiveCell.Offset(1, 0).Select
Loop