Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Anführungszeichen (") ersetzen

Forumthread: Anführungszeichen (") ersetzen

Anführungszeichen (") ersetzen
21.05.2003 12:37:59
Ludwig Metz
Hallo Exelfreunde,
stehe einem Problem ziemlich ratlos gegenüber:
Ich lasse über ein Makro das Anführungszeichen (") durch zweimal Apostroph (´´) ersetzen.
Folgender Code:
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Replace What:="""", Replacement:="´´", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Bei der Makro-Aufzeichnung funktionierts, beim Abspielen nicht!!
Das Makro wurde mit Version 9.0 aufgezeichnet, benutze jetzt 10.0. Oder ist am Code etwas nicht in Ordnung?
besten Dank im voraus.
mfg
Ludwig

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Anführungszeichen (") ersetzen
21.05.2003 12:47:47
Holger Levetzow

der folgende Code reicht dafür:

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Replace What:="""", Replacement:="´´"

Holger

Re: Anführungszeichen (") ersetzen
21.05.2003 12:52:05
andreas e

Hallo Holger, Hallo Ludwig,
ich verstehe zwar nicht ganz warum - aber bei mir funzen beide nicht !
War da nicht mal was mit dem Sonderzeichen ~ ???
Habe mal (noch ohne Ergebnis!) experimentiert.
gruß
andreas e

Anzeige
Re: Anführungszeichen (") ersetzen
21.05.2003 12:57:35
peterO

hallo,

bei mir funktionierts so:

Cells.Select
Selection.Replace What:="""", Replacement:="´´", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

gruß
peter

Re: Anführungszeichen (") ersetzen
21.05.2003 13:02:49
Ludwig Metz

Hallo Holger,hallo andreas,
gleiche ergebnis wie vorher, das Makro ""fliegt"" über die Zeile, als wenn keine daten vorhanden wären. Dabei beträgt die Dateigröße 28MB!! (30000 Zeilen)
Danach ersetze ich Semikolon durch Komma- dabei braucht das Makro 2-3 sek um die zeichen zu suchen und zu ersetzen.
gruß Ludwig

Anzeige
Re: Anführungszeichen (") ersetzen
21.05.2003 13:40:21
Holger Levetzow

starte mal das Makro mit F8 (aus der ent.-Umgebung und sieh dann mal hinter

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

nach, was markiert wurde. Ich denke, da liegt Dein Fehler.
Die Zeile markiert von der aktuellen zelle (!) bis zur letzten benutzten.

Holger

Anzeige
Re: Anführungszeichen (") ersetzen
21.05.2003 14:44:19
Ludwig Metz

Hallo,
habe noch mal etwas experimentiert, und es wird immer seltsamer. Wenn ich alle Zellen markiere, wird kein Anführungszeichen ersetzt. Makiere ich 2 spalten, (mit den meisten und für mich wichtigen Anführungszeichen) werden diese ersetzt.
gruß Ludwig

;
Anzeige

Infobox / Tutorial

Anführungszeichen in Excel ersetzen


Schritt-für-Schritt-Anleitung

Um Anführungszeichen (") in Excel zu ersetzen, kannst du den folgenden VBA-Code verwenden. Dieser Code sucht nach Anführungszeichen und ersetzt sie durch zwei Apostrophe (´´):

Sub AnfuehrungszeichenErsetzen()
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Replace What:="""", Replacement:="´´", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub
  1. Öffne dein Excel-Dokument.
  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  3. Füge ein neues Modul hinzu (Einfügen > Modul).
  4. Kopiere den obigen Code in das Modul.
  5. Schließe den VBA-Editor und gehe zurück zu Excel.
  6. Wähle die Zellen aus, in denen du die Anführungszeichen ersetzen möchtest.
  7. Führe das Makro aus (ALT + F8 und wähle das Makro aus).

Häufige Fehler und Lösungen

  • Problem: Das Makro ersetzt keine Anführungszeichen.

    • Lösung: Überprüfe, ob du die richtigen Zellen ausgewählt hast. Startet das Makro mit F8, um zu sehen, welche Zellen markiert sind.
  • Problem: Das Makro scheint keine Daten zu finden.

    • Lösung: Stelle sicher, dass die Anführungszeichen in der richtigen Form vorliegen. Manchmal können unsichtbare Zeichen die Suche beeinflussen.

Alternative Methoden

Wenn du keine VBA-Lösungen verwenden möchtest, kannst du auch die integrierte Excel-Funktion „Ersetzen“ nutzen:

  1. Markiere den Bereich, in dem du die Anführungszeichen ersetzen möchtest.
  2. Drücke Strg + H, um das Dialogfeld „Suchen und Ersetzen“ zu öffnen.
  3. Gib im Feld „Suchen nach“ ein: " und im Feld „Ersetzen durch“: ´´.
  4. Klicke auf „Alle ersetzen“.

Diese Methode ist einfach und funktioniert in den meisten Fällen.


Praktische Beispiele

Beispiel 1: Du hast eine Liste von Namen, die Anführungszeichen enthalten, z. B. "Max Mustermann". Mit dem VBA-Code oder der Ersetzen-Funktion kannst du sie in ´´Max Mustermann´´ umwandeln.

Beispiel 2: In einer CSV-Datei könnten Anführungszeichen verwendet werden, um Textfelder zu kennzeichnen. Wenn du diese entfernen möchtest, nutze die oben genannten Methoden.


Tipps für Profis

  • Verwende den LookAt Parameter im VBA-Code, um genau zu steuern, ob du nur nach dem gesamten Inhalt oder nach einem Teil suchst:

    • LookAt:=xlWhole für den gesamten Inhalt.
  • Experimentiere mit den SearchOrder und MatchCase Optionen, um spezifischere Ersetzungen vorzunehmen.

  • Achte darauf, die Datei regelmäßig zu speichern, bevor du große Änderungen vornimmst.


FAQ: Häufige Fragen

1. Warum wird das Anführungszeichen nicht ersetzt?
Es könnte sein, dass die Zellen, die du ersetzt hast, leer sind oder das Zeichen in einer anderen Form vorliegt.

2. Kann ich Anführungszeichen auch in Formeln ersetzen?
Ja, du kannst die oben genannten Methoden auch in Formeln anwenden, solange du die richtigen Zellen auswählst.

3. Ist dieser VBA-Code in allen Excel-Versionen kompatibel?
Der Code sollte in den meisten Versionen von Excel funktionieren. Bei sehr alten Versionen könnte es jedoch Unterschiede geben.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige