komische Zeichen

Bild

Betrifft: komische Zeichen
von: Nina
Geschrieben am: 04.08.2015 13:17:36

Hallo
in einer Zelle steht bei mir "Ger„te".
Der Text sollte eigentlich Geräte heissen, die Quelle stammt aus einem Fremdprogramm.
Kann ich mit einer Formel oder einem Makro diesen Begriff umwandeln?
Danke an alle Excel-Super-Profis, die dieses Forum für Gotteslohn mit "Lesestoff" beliefern.
Nina

Bild

Betrifft: AW: Nimm einfach Suchen/Ersetzen...
von: Michael (migre)
Geschrieben am: 04.08.2015 13:24:01
Nina,
...das sollte reichen. Betroffene Zellen markieren (oder ggf. alle Zellen mit [Strg + a]) und dann Suchen/Ersetzen aufrufen mit [Strg + h]. Suchen nach "„", ersetzen mit "ä".
LG
Michael

Bild

Betrifft: AW: komische Zeichen
von: AlexG
Geschrieben am: 04.08.2015 13:26:20
Hallo Nina,
Kommt das nur bei dem Wort Geräte vor?
Also ,, statt ä oder kommt das bei den anderen umlauten auch vor?
Ansonsten so.
Tabelle1

 AB
1Ger„teGeräte

Formeln der Tabelle
ZelleFormel
B1=WECHSELN(A1;ZEICHEN(132); "ä")


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß
Alex

Bild

Betrifft: AW: komische Zeichen
von: Nina
Geschrieben am: 04.08.2015 14:43:09
Hallo Alex
Danke super!
Kleine Frage noch.
Wenn ich in der Spalte A (A1:A200) 200 Begriffe habe, kann ich mit einem Makro dies dann direkt in der Spalte A ersetzen.
Ich würde dann für jedes Sonderzeichen, das Makro kopieren und laufenlassen (Code 132, 148, 129)
Ich habe nämlich das Problem öfters, so könnte ich dann einfach alle Begriffe ins Muster-Excel einfügen, die 3 Makro's laufenlassen und den "reinen sauberen Text" wieder zurückkopieren.
Danke nochmals für die Hilfe
Nina

Bild

Betrifft: AW: komische Zeichen
von: AlexG
Geschrieben am: 04.08.2015 15:04:02
Hallo Nina,
durch was sollen denn die anderen zwei Sonderzeichen ersetzt werden?
Gruß
Alex

Bild

Betrifft: VBA variante
von: AlexG
Geschrieben am: 04.08.2015 15:57:02
Hallo Nina,
ein Makro reicht.
Du musst noch die zwei markierten Zeilen anpassen.
Teste mal.

Sub SonderZ()
Dim rng As Range
Dim lngLetzte&
lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For Each rng In Range("A1:A" & lngLetzte)
    If InStr(1, rng, Chr(129), vbBinaryCompare) > 0 Then _
        rng = Replace(rng, Chr(129), "ö") '<---- ö anpassen 
    If InStr(1, rng, Chr(132), vbBinaryCompare) > 0 Then _
        rng = Replace(rng, Chr(132), "ä")
    If InStr(1, rng, Chr(148), vbBinaryCompare) > 0 Then _
        rng = Replace(rng, Chr(148), "ö") '<---- ö anpassen 
Next
Application.ScreenUpdating = True
End Sub
Gruß
Alex

 Bild

Beiträge aus den Excel-Beispielen zum Thema "komische Zeichen"