Office: Übersetzungen per Makro?

guten morgen

ich hab mal eine eigenartige Frage

und zwar, gibt es die Möglichkeit über ein Makro eine Übersetzerfunktion zu bekommen?

es ist folgendermaßen, ich habe eine Spalte in der drinn steht,
Früh, Spät, Nacht
und die Tabelle geht über ein Monat hinweg.
nun sollen alle deutschen Eintragungen ins englische übersetzt werden
morning, afternoon, night

und das nach, nach der Aussage meines Cheffes, per Knopfdruck


gibt’s da eine derartige Lösung?


PS: am besten noch wenn ne Autokorrektur mit drin ist denn solche ein träge wie furu und fruh oder Nach kommen schon mal vor, wenn die Arbeiter übermüdet die Einträge machen zum Schichtende hin ;-)

 

Folgendes Makro sucht in Spalte A nach Früh oder Fruh und ersetzt es durch Morning. Für andere Einträge kannst Du analog vorgehen.

Code:

Sub Makro2()
    Columns("A:A").Select
    Selection.Replace What:="Früh", Replacement:="Morning"
    Selection.Replace What:="Fruh", Replacement:="Morning"
End Sub

 

vielen dank abermals für die schnelle hilfe