In Excel Umlaute richtig ersetzen

Hallo,

ich werde bald verrückt, ich habe mehrere Excel-Tabelle die Umlaute im falschen Format darstellen, die Ausgangsdateien lassen sich beim Import leider nicht anders liefern.

Frage wie kann ich die Umlaute per Markro gegen die echten Umlaute ersetzen lassen, habe hier schon einige Makros versucht - leider ohne Erfolg.

Anbei mal eine Test-Datei. In der echten Datei ist aber nicht nur die A-Spalte mit Daten belegt.

Hier zur Datei:
http://hochladen.to/files/v10w21396442793.html

Vielen Dank.

Gruß Werner

http://hochladen.to/files/v10w21396442793.html

Hallo Werner,

hast du selbst mal deinen Link getestet? Wenn ich ihm folge sehe ich zwei Pfeilsymbole, nach unten und nach oben. Egal welches Symbol geklickt, ich soll meine Festplatte durchsuchen!

Was mache ich falsch?

Gruß
Reinhard

Neuer Versuch:
http://www.uploadagent.de/show-194030-1396447902.html
Passwort: 12345

Hallo Werner,

entschuldige die naive Frage, aber was spricht dagegen, sie mit der Suchen & Ersetzen-Funktion zu ersetzen? Ob eine Spalte belegt ist oder 10000 ist doch egal …
Ich hab’s auch mit Makros versucht, die ich hier und da gefunden hatte, aber bei dem einen kam eine Fehlermeldung, die ich nicht beseitigt bekam, und beim anderen wurden die „falschen Umlaute“ als ?? reinkopiert, also konnte das mit dem Suchen und Ersetzen gar nicht funktionieren.

Gruß
Christa

Hallo und erst einmal vielen Dank.
Über den Link blockiert mein Virenscanner und ich bekomm das nicht weg.
Auch habe ich sehr viele dieser Datein und benötige das ganze daher als Makro.
Ist dies möglich?

Gruß Werner

Hallo

Probier mal folgendes Makro.
Evtl den Bereich A1 bis H1000
entsprechend deiner Listen anpassen.
Sonst ändert er nur in diesem Bereich.

’ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Sub Ersetzen()

Dim Suchtext, Ersatztext
Dim Bereich As Range
Dim Suche As Range
Dim i As Long

Set Bereich = Range(„A1:H1000“) 'zu suchenden Bereich festlegen

’ ---------------------------
’ Hier auf ü richtigstellen
’ ---------------------------

Suchtext = ChrW(258) & ChrW(317)
Ersatztext = „ü“

Set Suche = Bereich.Find(what:=Suchtext, LookIn:=xlFormulas, LookAt:=xlPart)

If Suche Is Nothing Then
MsgBox „Keine übereinstimmende Daten gefunden!“
Else
Application.ScreenUpdating = False

Do
i = i + 1
Suche.Value = Replace(Suche.Value, Suchtext, Ersatztext)
Set Suche = Bereich.FindNext(Suche)
Loop Until Suche Is Nothing

MsgBox „Es wurden " & i & " Ersetzungen durchgeführt!“
End If

’ ----------------------------
’ Hier auf ö richtigstellen
’ ----------------------------

Suchtext = ChrW(258) & ChrW(182)
Ersatztext = „ö“

Set Suche = Bereich.Find(what:=Suchtext, LookIn:=xlFormulas, LookAt:=xlPart)

If Suche Is Nothing Then
MsgBox „Keine übereinstimmende Daten gefunden!“
Else
Application.ScreenUpdating = False

Do
i = i + 1
Suche.Value = Replace(Suche.Value, Suchtext, Ersatztext)
Set Suche = Bereich.FindNext(Suche)
Loop Until Suche Is Nothing

MsgBox „Es wurden " & i & " Ersetzungen durchgeführt!“
End If

’ ----------------------------
’ Hier auf ß richtigstellen
’ ----------------------------

Suchtext = ChrW(258) & ChrW(378)
Ersatztext = „ß“

Set Suche = Bereich.Find(what:=Suchtext, LookIn:=xlFormulas, LookAt:=xlPart)

If Suche Is Nothing Then
MsgBox „Keine übereinstimmende Daten gefunden!“
Else
Application.ScreenUpdating = False

Do
i = i + 1
Suche.Value = Replace(Suche.Value, Suchtext, Ersatztext)
Set Suche = Bereich.FindNext(Suche)
Loop Until Suche Is Nothing

MsgBox „Es wurden " & i & " Ersetzungen durchgeführt!“
End If

’ ----------------------------
’ Hier auf ä richtigstellen
’ ----------------------------

Suchtext = ChrW(258) & ChrW(164)
Ersatztext = „ä“

Set Suche = Bereich.Find(what:=Suchtext, LookIn:=xlFormulas, LookAt:=xlPart)

If Suche Is Nothing Then
MsgBox „Keine übereinstimmende Daten gefunden!“
Else
Application.ScreenUpdating = False

Do
i = i + 1
Suche.Value = Replace(Suche.Value, Suchtext, Ersatztext)
Set Suche = Bereich.FindNext(Suche)
Loop Until Suche Is Nothing

MsgBox „Es wurden " & i & " Ersetzungen durchgeführt!“
End If

’ ----------------------------

End Sub

’ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Gruß

Leider habe ich viele dieser Dateien, darum benötige ich ein Makro. Mir ist es bisher auch nicht gelungen.

Gruß Werner

Das Wissen hier im Forum erstaunt mich immer wieder.

Danke Silbersurfer. Es hat sofort geklappt. SUPER

Vielen Dank für die Mühe, natürlich auch bei allen anderen die eine Lösung gesucht haben.

Gruß Werner