HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

VBA - Abostroph löschen

Forumthread: VBA - Abostroph löschen
14 Beiträge zu diesem Forumthread
Anzeige
Threads zu ähnlichen Themen

Forumthread: VBA - Abostroph löschen

21.03.2025 18:28:41

Christian

Hallo, bitte helft mir.

Ich versuche die Abostrophs zu löschen, die z.b. in beiden Blättern in der Zelle D2 stehen. Hatte aber bislang keinen Erfolg.

https://www.herber.de/bbs/user/176370.xlsm

Habe es mit dem Makro probiert, dass sich in der Datei befindet, aber auch nach dem Ausführen sind die ' immer noch da.

Die ' erscheinen nur in der Bearbeitungsleiste, in den Zellen sind sie nicht sichtbar.

Kann mir da jemand helfen?
Danke
Christian

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA - Abostroph löschen

21.03.2025 18:37:07

Oberschlumpf
AW: VBA - Abostroph löschen

21.03.2025 18:45:47

Christian
AW: VBA - Abostroph löschen

21.03.2025 18:56:22

Oberschlumpf
AW: VBA - Abostroph löschen

21.03.2025 20:07:20

Christian
AW: VBA - Abostroph löschen

21.03.2025 18:38:21

daniel
AW: VBA - Abostroph löschen

21.03.2025 18:49:46

Kuwer
AW: VBA - Abostroph löschen

21.03.2025 20:08:12

Christian
AW: VBA - Abostroph löschen

21.03.2025 18:59:29

Onur
AW: VBA - Abostroph löschen

21.03.2025 19:01:57

Onur
AW: VBA - Abostroph löschen

21.03.2025 20:12:12

Christian
AW: VBA - Abostroph löschen

22.03.2025 14:57:44

Daniel
AW: VBA - Abostroph löschen

22.03.2025 15:32:41

Christian
AW: VBA - Abostroph löschen

21.03.2025 20:31:49

Onur
AW: VBA - Abostroph löschen

21.03.2025 18:47:42

Christian

AW: VBA - Abostroph löschen

21.03.2025 18:37:07

Oberschlumpf

Hi Christian,

anstelle von...

If cell.Value = "'" Then

...versuch es mit...

If cell.Value = "" Then

Und bitte lösch deine 1. For/Next-Schleife!
Wieso willst du über 1 Mio Zellen prüfen???

Hilfts?

Ciao
Thorsten

AW: VBA - Abostroph löschen

21.03.2025 18:45:47

Christian

Hallo Thorsten,

danke, hat funktioniert, zumindest in der Testdatei. Mit der Originaldatei wird es sicher etwas länger dauern.
Sind nur knapp 184.000 keine Million, naja weil die Originaldatei halt diese Ausmaße hat.

Ich bin allerdings gerade etwas überfragt, wie das ohne Schleife funktionieren soll.

Gruß
Christian

AW: VBA - Abostroph löschen

21.03.2025 18:56:22

Oberschlumpf

Hi,

du hast doch 2 Schleifen = warum?
Nutz nur die 2. Schleife, und die eben nicht für über 1 Mio Zellen, sondern nur für die genutzten Zellen.

Ciao
Thorsten

AW: VBA - Abostroph löschen

21.03.2025 20:07:20

Christian

Hallo Thorsten,

das ist es ja, die Bereiche entsprechen den genutzten Zellen.
Aber auch wenn es was gedauert hat, die Version mit den Schleifen ist jetzt fertig und hat alles geklappt.
Da es eine einmalige Sache war hat die Performance jetzt auch keine so riesige Rolle gespielt.

Gruß
Christian

AW: VBA - Abostroph löschen

21.03.2025 18:38:21

daniel

Hi
das Hochkomma ist hier das Texterkennungszeichen und daher nicht Teil des Zellwertes!
es hat die selbe Funktion wie wenn die Zelle mit dem Zahlenformat TEXT formatiert ist.
daher kannst du es auch nicht mit .Value abfragen, auch wenn es in der Bearbeitungszeile angezeigt wird.

der Code muss daher lauten:

if .Cell.Value = "" then

    cell.ClearContents

end if

Gruß Daniel

AW: VBA - Abostroph löschen

21.03.2025 18:49:46

Kuwer

Hallo Christian,

Sub aaa()

  With ThisWorkbook.Sheets("Codes").Range("D1:D183251")

    .Value = .Value

  End With

  With ThisWorkbook.Sheets("NV").Range("D1:D440")

    .Value = .Value

  End With

End Sub

Gruß, Uwe

AW: VBA - Abostroph löschen

21.03.2025 20:08:12

Christian

Hallo Uwe, funktioniert ebenfalls. Vielen Dank

AW: VBA - Abostroph löschen

21.03.2025 18:59:29

Onur

Spalte (Bereich) markieren - "Kopieren" - in andere Spalte gehen - "WERTE einfügen" - diese Spalte kopieren - zurück zur erster Spalte - erste Zelle merkieren - "ALLES einfügen".

AW: VBA - Abostroph löschen

21.03.2025 19:01:57

Onur

Das Ganze kannst du auch auf ein anderes Blatt machen - Blatt komplett kopieren - WERTE einfügen auf neuem Blatt - das neue Blatt wieder komplett kopieren - Komplett (nicht nur Werte) einfügen im ersten Blatt.

AW: VBA - Abostroph löschen

21.03.2025 20:12:12

Christian

Hallo Onur,

danke für den Tipp, muss ich mir merken, deutlich einfacher als mit VBA.

Gruß
Christian

AW: VBA - Abostroph löschen

22.03.2025 14:57:44

Daniel

Zum Entfernen der Apostrophe in den Leerzellen kannst du auch mit dem Autofilter nach "leer" filtern, dann alle Zellen markieren und die Inhalte löschen.
Oder mit der Spalte ein Daten -Datentools - Text in Spalten ausführen.

Gruß Daniei

AW: VBA - Abostroph löschen

22.03.2025 15:32:41

Christian

Hallo Daniel,

auch dir danke für deinen Tipp und die Erklärung.
Christian

AW: VBA - Abostroph löschen

21.03.2025 20:31:49

Onur

Das Problem ist Folgendes: Wenn man solche Daten aus einer anderen Quelle kopiert und einfügt, kann es passieren, dass Excel ein Apostroph vor alle Zellen setzt - als Zeichen, dass da nix berechnet und alles wie Text behandelt werden soll.
Das Problem ist aber, dass das von Excel intern wie eine eigenständige Formatierung behandelt wird - nennen wir es "Standard2".
Dieses "Standard2"-Format kannst du aber nirgends ändern, da du es auch nicht sehen kannst, weil es ofiziell gar nicht existiert. Selbst wenn du den Text der Zelle änderst, das Format bleibt.
Nur durch Kopieren der Werte und das Zurückkopieren inklusive des neuen Formates wird das "Standard2"-Format wieder gelöscht bzw überschrieben.

AW: VBA - Abostroph löschen

21.03.2025 18:47:42

Christian

Hallo Daniel,

der Vorschlag funktioniert. Danke auch, dass du dir die Zeit für die Erklärung genommen hast.

Christian