Führendes Hochkomma in Text-Zelle

Guten Morgen, Gemeinde, heute gibt's was zum Hirnerweichen.
Beispieldatei: https://www.herber.de/bbs/user/127865.xlsx
Sachverhalt:
Ich hatte eine leere Spalte.
Die Spalte ist mit der Formatvorlage Standard formatiert.
Die Spalte hat das Zahlenformat Text.
Dann habe ich Texteinträge (keine Zahlen) in die Spalte getippt.
Aus nicht nachvollziehbaren Gründen ist jetzt in manchen Zellen ein führendes Hochkomma.
Das Hochkomma ist oben in der Bearbeitungszeile zu sehen und in der Zelle, wenn diese im Bearbeitungsmodus aktiviert ist (mit Doppelklick oder F2).
Das Hochkomma ist bei nicht markierter oder aktivierter Zelle nicht zu sehen.
Ursachenforschung:
Problem besteht sowohl in xls als auch in xlsx und xlsm.
Wenn ich das Hochkomma in der Bearbeitungszeile lösche, ist es nach Verlassen der Zelle wieder da.
Wenn ich die Zelle mit Entf leere, ist das Hochkomma weg. Wenn ich dann wieder was reintippe, ist das Hochkomma wieder da.
Wenn ich das Zellformat mit dem Pinsel auf eine "saubere" Textzelle übertrage, kriegt die auch das führende Hochkomma.
Das Hochkomma ist nicht mit Formeln (Suchen, Finden, Links) oder in VBA (Left, Replace usw) zu finden, geschweige denn zu ersetzen oder entfernen. Alle Formeln "sehen" das Hochkomma nicht und lassen sich nicht davon stören.
Wenn ich den Inhalt der "verseuchten" Zelle in eine saubere Zelle mit Werte einfügen übertrage, ist das Hochkomma weg. Wenn ich jetzt die saubere Zelle mit Strg+C, Strg+V in die verseuchte Zelle kopiere, ist die Zelle auch sauber.
Es scheint also irgendwie durch die Formatierung der Zelle verursacht zu werden.
Wenn ich eine solche Zelle identifiziert habe, kann ich sie also leicht "säubern". Mein Problem ist aber, dass ich nicht weiß welche Zellen verseucht sind, es sei denn ich klick alle an und schau, ob dadurch ein Hochkomma sichtbar wird.
Jemand einen Tip?
Wie kann ich die entsprechenden Zellen per VBA identifizieren und bereinigen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Werner,
zu 1 und 2 unterstellst du, dass ich ein Hochkomma getippt hätte. Habe ich aber definitiv nicht. Das ist von selber entstanden, aber ich weiß nicht, wann, wie und warum. Ich habe hunderte von Zellen in der selben Spalte getippt und nur bei manchen (unregelmäßig) ist dieser PrefixCharacter entstanden. Ich habe die Zellen nicht in einem Rutsch untereinander getippt, sondern zwischendurch auch andere Aktionen in einer stark verformelten und formatierten Tabelle durchgeführt. Manchmal habe ich in dieser Spalte auch zwischendrin Zellen eingefügt und die Zellen drunter entsprechend nach unten verschoben. Manchmal auch Zellen entfernt und alles darunter nach oben verschoben. Nur in dieser Spalte; rechts und links daneben nicht. Kann nicht sagen, ob es damit zusammenhängt, aber wer weiß?
zu 4: Die "Zuweisung eines Nicht-Textformates und ein nochmaliger Enter" hilft meines Wissens nur bei Zahlenwerten, aber auch nicht bei vorangestelltem Hochkomma.
Bei Zahlenwerten am Anfang eines Standard-Feldes ist das Hochkomma ja auch logisch nachvollziehbar, teilweise sinnvoll und auch per normaler Zeichenlöschung entfernbar. Dort ist es dann (zumindest was ich bisher an verqueren importierten Formaten erlebt habe) auch kein PrefixCharacter, sondern ein per Replace(A,B) bearbeitbares Zeichen.
Und bei den Zahlenwerten geht es meines Wissens auch nur dann, wenn man manuell in die Zelle klickt und dann Enter drückt, nicht wenn man das per VBA durchrödelt. Das kann man aber nicht bei einer unbestimmten, großen Zahl in überall "versteckten" Zellen machen.
In meinem Fall sind es aber Texteingaben, teilweise mit einem Bindestrich am Anfang, weshalb ich ja auch als Text vorformatiert habe, um nicht eine Funktion anzuzetteln.
"Die Zuweisung des Nicht-Text-Formates kann" in meinem Fall NICHT "durch normale Formatänderung" gemacht werden.
Folgende Brutalmethode funktioniert, aber nur wenn die markierte Zelle ok formatiert ist:

Sub Hochkomma_in_Spalte_entfernen()
' Formatierungen aus einer Zelle kopieren
ActiveCell.Copy
' Formatierungen auf den Rest der Spalte übertragen
Range(ActiveCell, Cells(ActiveSheet.UsedRange.Rows.Count, ActiveCell.Column)).PasteSpecial  _
Paste:=xlPasteFormats
End Sub

Aber ich hätte es gern individuell gefunden und ohne Überpinseln geändert. Ich bin ein alter Eleganzler.

Beliebteste Forumthreads (12 Monate)

Führendes Hochkomma in Text-Zelle

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

37 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Führendes Hochkomma in Text-Zelle

28 Beiträge zum Forumthread Beiträge zu diesem Forumthread

37 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread