csv-import

[schauan]

Hallöchen,

ich habe dann z.B. im Nachgang diese Problemzeichen mit Replace rausprogrammiert, in etwa so:

Code:

Sub convertText()

    Cells.Replace What:="Ä", Replacement:="Ä", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=True
    Cells.Replace What:="ä", Replacement:="ä", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=True
    Cells.Replace What:="Ö", Replacement:="Ö", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=True
    Cells.Replace What:="ö", Replacement:="ö", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=True
    Cells.Replace What:="Ãœ", Replacement:="Ü", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=True
    Cells.Replace What:="ü", Replacement:="ü", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=True
    Cells.Replace What:="ß", Replacement:="ß", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=True
    Cells.Replace What:="á", Replacement:="á", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=True
    Cells.Replace What:="é", Replacement:="é", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=True
    Cells.Replace What:="è", Replacement:="è", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=True
    Cells.Replace What:="­", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=True
End Sub

[Igelbauer]

Moin erstmal und schönen Brückenarbeitstag.

Hi André,
Im Prinzip ein guter Ansatz. Müsste ich mal im Laufe der nächsten Zeit schauen,
was er so aus ÄÜÖäüö macht und dementsprechende replaces an mein Makro anhängen.
Machbar.
Aber hast Du ´ne Ahnung warum bei mir die Buttons für Codefenster, Zitieren etc nicht erscheinen ?
Bei "Antwort schreiben" ist zwischen den Icons und dem Textfenster nix.

Hi Helmut,
"Da musst du einfach an deinem Import feilen..."
Hab ich keine passende Feile für.

Gruss Igel

[HKindler]

Hi Igel,

da du nicht schreibst, wie du importierst, kann man auch nicht zielgerichtet helfen. Z.B. bei PQ kann man angeben, welche Codierung in der Importdatei benutzt wird.

Ansonsten kann man das vorgeschlagene Replace auch direkt beim Import machen. Und wenn du wissen willst, wie äöü etc. codiert ist, musst du dir einfach mal die Codetabellen anschauen. Oder du machst es so, wie ich es gemacht habe: tippe die Umlaute in einen Editor, der verschiedene Kodierungen kennt, z.B. Notepad++, und stell dann dort einfach eine andere Kodierung ein.

[schauan]

Hallöchen,
Ich hatte das I. a. in einem Projekt, wo ich utf8xx in bzw aus verschiedenen Dateien ex- und importieren sowie verarbeiten musste.

[Igelbauer]

Hi,
hab das jetzt mit dem replace gelöst. Läuft prima.
Macht jetzt in ca. 3s das wofür ich vorher einige Stunden gebraucht habe.
Danke - alles super.
Nur noch, gehört eigentlich nicht zum Thema,
Warum fehlen mir die Buttons für Codefenster etc. ???

Gruss Igel

[schauan]

Hallöchen,

erst mal zwei Standardantworten:

- hast Du mal den Browsercache gelöscht?
- wie schaut es in einem andern Browser aus?

[Igelbauer]

Moin André,
Ja das wars wohl.
Wenn ich auf meinem älteren Läppi mit Internet Exporer reingehe fehlt die Zeile mit den Buttons.
Mit Chrome ist alles OK.

Damit können wir diesen Tread glaube ich schliessen.

Danke nochmal an alle, die mir geholfen haben.

Gruss Igel

[derHoepp]

Moin,

ich möchte noch Mal Helmuts Anmerkung bekräftigen, dass es sinnvoller ist, das Problem an der Wurzel zu lösen (richtiger Zeichensatz und passende Codierung schon beim Import), statt an den Symptomen rumzudoktern (ersetzen fehlerhaft interpretiert er Zeichencodierung).

Viele Grüße
derHöpp